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QUEMANSHO SHOW QUEUE command Bose Sep-1984 00:18:0 AxX-11 Bliss-32 V P 
ea een ibe $3ibR es | eet ORE SademAnguo.6S251 age 4} 


1 001 MODULE QUEMANSHO(ZTITLE "SHOW QUEUE command’ 
¢ 38 o Po s 1¥042000" 
i 004 1 BEGIN A | 
5 005 1 
6 Be 1! 
4 Oo \ ee ate a ane Meneame ae oir 
9 0009 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 B : | 
10 0010 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. x | 
12 0012 ; :* ALL RIGHTS RESERVED. * | 
e * 
1 001= 1 '* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
14 O01 1 is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN gh enND WIS THE | 
15 0015 1 !'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
16 0016 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * | 
17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 Q018 1 is TRANSFERRED. * | 
: ® 
30 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$§ BoS§ : ~ CORPORATION. * | 
'@ * 
24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$? 09 ; | is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL ® 
57 0097 1 is : | 
$8 Bn55 : ‘ile tea cette itch ain ek ata etae 
$0 0030 1 | 
1 0031 1 !+4+¢ 
32 0032 1 ! FACILITY: 
ez ot : Queue management commands. 
3 0035 1 ' ABSTRACT: 
$9 4 : This module implements the SHOW QUEUE command. 
38 0038 1 | ENVIRONMENT: 
3 0059 a VAX/VMS user mode. 
41 0041 1: | 
¢ 006 : AUTHOR: M. Jack, CREATION DATE: 10-Nov-1982 
44 0044 ' MODIFIED BY: | 
46 0046 1! v03-013 JAKO225 rycka 16-Aug-1984 
47 0047 1! Restrict danke’ a DE AULT, SEPARATE, and FORM attributes 
“8 Bheo : to nongeneric printer and terminal queues. 
50 0050 1! v03-012 JAK0222 rycka 06-Aug-1984 
2) th : Fix bug in tote ral EFAULT List introduced in JAK0220. 
2g 3g 1} v03-011 JAK0220 rycka O-Jul-1984 
2 bee : Support display - ADE AULT=FEED and CNOJFEED. | 
56 056 1 i v03-010 PCG0003 r George 13-Mar-1984 | 
57 O57 1! Change default Sa pes fe of SHOW Queue /ouTPuT” 
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14-Sep-1984 


v03-009 PCG0002 Peter 
Add support for /OUTPUT qualifier. 
Write values of /GENERIC cout separately. 
er 


v03-008 pyorne Pet 


1§- sep-19 4 90:} 03 


AX-11 
CLIUTL 


George 29-Feb-1984 


17-Feb-1984 


Bliss-32 V 
BL AE TOGEMANSHO. aS2; 31 


x bug in wrap code on 3 olveys clear buffer after writing it. 


v03-007 LMP0140 L. Mark Pilant 
Add support for sonerern vics. 


V03-006 MLJ0118 Jack, 23-Aug-1983 


24-Aug-1983 


Change names to pat) "sau1bEF implement page setup. 


v03-005 MLJ0115 Martin L. Jack, 30-Jul-1983 
Changes for job controller baselevel. 


v03-004 MLJ0114 Martin L. Jack, 23-Jun-1983 
Rewrite using SGETQUI. 


v03-003 MLJ0113 Martin L. Jack, 26-May-1983 
Changes for job controller baselevel. 


v03-002 creed hy Martin L. Jack, 29-Apr<1983 
Track queve format changes. 


v03-001 MLJ0109 Martin L. Jack, 13-Apr-1983 


Support new job and queue states and track queue format changes. 
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LIUTL.SR 


8-32 V4 0-742 
CJQUEMANSHO.B32; 1 (2) 


BBLOCK(O,P,S,E;NJ= 
(BBLOCK + 0)<P,S,E>; 


89 0 1 LIBRARY ‘SYSS$LIBRARY:STARLET'; 
90 O89 1 
91 090 1 | 
35 091 1 FORWARD ROUTINE 
9 0092 1 SHOWQUEUE : NOVALUE, ! Main routine 
94 0095 1 OPEN_OUTPUT: NOVALUE, ; ae the output file 
b) 0094 1 CLOSE _OUTPUT: NOVALUE, ! Close the output file | 
96 0095 1 FORMAT_CHARACTERISTICS: NOVALUE, ' Format characteristics mask 
97 0096 1 FORMAT_CPU_TIME: NOVALUE, ! Format CPU time value 
98 0097 1 FORMAT_DEFAULT: NOVALUE, ! Format /DEFAULT value 
99 0098 1 FORMAT_MARGINS: NOVALUE, ! Format /MARGIN value 
100 099 1 FORMAT_PARAME TERS: NOVALUE , ' Format /PARAMETERS value | 
101 100 1 FORMAT_PROTECTION NOVALUE, ! Format /PROTECTION value 
106 0101 1 FORMAT _SCHEDULE NOVALUE, ! Format /SCHEDULE value | 
10 b10¢ 1 FORMAT_SEPARATE NOVALUE, ' Format /SEPARATE value 
104 0103 1 FORMAT WORKING. SET NOVALUE, ! Format working set value 
105 0104 1 SHOW_CRARACTERISTICS NOVALUE, ' Display characteristics 
106 0105 1 FORMS: NOVALUE, ! Display forms 
107 0106 1 SHOW_QUEUES: NOVALUE, ! Display queues 
108 0107 1 JOBS: NOVALUE , ! Display jobs 
109 0108 1 SHOW_FILES: NOVALUE, ! Display files 
110 0109 1 FAO: NOVALUE, ! Format information into Line 
111 0110 1 EOL: NOVALUE, ! Write Line buffer 
Wg 0111 1 CEOL: NOVALUE, ! EOL if Line neneaety 
11 O11g 1 PUT OUTPUT: NOVALUE , i Write a record to the Listing 
114 0113 1 EXIT_HANDLER: NOVALUE ; ! Exit handler | 
115 0114 1 
116 0115 1 
117 0116 1 EXTERNAL ROUTINE 
118 0117 1 CLISGET_VALUE: ADDRESSING_MODE (GENERAL), 
119 0118 #1 ! Get entity value 
120 0119 #1 CLISPRESENT: ADDRESSING MODE (GENERAL) ; 
121 0120 1 ! Betermine if entity is present 
122 0121 1 
123 b1S§ 1 : | 
124 0123 1 LITERAL F | 
125 0124 1 TRUE= P 
126 0125 1 FALSE= 0; 
127 0126 1 
128 0127 1 
19? 0128 1 STRUCTURE | 
130 at 94 1 
BR 
138 O32 
134 bis 1 | 
135 0134 1 PSECT | 
136 0135 (1 CODE= CODE, 
137 0136 1 PLIT= CODE, 
138 Bie 1 OWN= DATA, 
139 138 1 GLOBAL = DATA; 
140 0139 1 
141 0140 1 
is 0141 1 LITERAL 
14 0148 1 LIST_DEFAULT= 89 
144 0143 1 LIST SIZE= 138; 
145 0144 1 
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- 
| 1 | 
“QUEMANSHO SHOW QUEUE command 16-Sep-1984 00:18:05 YAX=11 BLiss-32 v4.0-74 Page 6 
“YOa~008 Ve-Sep-1984 12:08:45 — ECeTUTL SRCTOUEMANSHO-BS2:1 oe? (3) 
| i 
F | 


TITLE SUR ANS nO SHOW QUEUE command 
-IDENT \V04-000\ 


} 
-PSECT DATA,NOEXE,2 
| 


00000 FLAGS: .BLKB 8 
0008 LIST_DESC: | 
-BLKB | 
00010 LIST_BUFFER: | 
-BLKB 132 | 


ls 4 | 
3 3 23 : Ensure that pending wildcarding is erased. | 
le . i 
ié 9 38 SGETQUIW(FUNC=QU1$_CANCEL_OPERATION); 
Ge | 
i o9 : Establish an exit handler to cancel the open wildcarding on an abnormal exit. | 
3 264 026¢ 2 EXIT BLOCKEO) = 0; | 
i3 65 026 EXIT _BLOCKL1J = EXIT_HANDLER; 
3 66 0264 EXIT_BLOCK § = 1; 
5 67 8 65 EXIT_BLOCK = GAIT BLOCKEA; 
; 68 98 EXIT _BLOCKL4) = 0; 
3; 269 026 SDCLEXH(DESBLK=EXIT_BLOCK); 
a3: | 
: ue o5f1 ! Display the defined characteristics if requested. 
: Le 8566 i‘ CLISPRESENT(SDESCRIPTOR( "CHARACTERISTICS')) 
: $78 0274 SHOW_CHARACTERISTICS() 
3: 277 0275 | 
; 278 0 16 
; 144 8 A Display the defined forms if requested. | 
; ! 
3; 281 0279 ELSE IF CLISPRESENT(SDESCRIPTOR('FORMS')) | 
3 sae 44 
; 28 0281 SHOW_FORMS () 
3 see ogee 
: 285 028 | 
; 286 0284 ! Display queues if requested. 
; 287 0285 2! | 
3 3 0286 ELSE 
; 289 $544 SHOW_QUEUES(); 
3 344 02 
: 291 0289 
3 $36 5344 ' Close the output file.. 
: 9 0291 ! 
: $3¢ B56 CLOSE _OUTPUT(); 
; 5 029 | 
; 38 0294 
3 4 OSae Cancel the exit handler. 
3 99 533 SCANEXH(DESBLK=EXIT_BLOCK); 
s 0298 END; 
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NAM: 


aC RAB: pg ebke 
OUTPUT _DES¢: 
00198 OUTPUT_BUFF : 
~BLKB 


1 
eo- 
ep-1 


Bc 12:08:43 


P2_DESC: .BLKB 
FAB: BLKB 0 


AX-11 tS Pe V4.0=74 
CLIUTL.SRC JQUEMANSHO.B52;1 


“BLKB 


255 
~PSECT CODE,NOWRT,2 


53 45 4C 49 46 9000 P.AAB: ASCII \FILES\ 
000 “BLKB 
00000005 00008 P.AAA: <LONG 
00990000" 900¢ -ADDRESS P.A 
4C 4C 55 46 00010 P.AAD: <ASCII \FULL\ 
00000004 00014 P.AAC: <LONG 
00990000" 00018 “ADDRESS P.AAD 
32. 50 OOO1C P.AAF: <ASCII \P2\ 
0001E ‘BLKB 
00000002 00020 P.AAE: LONG 
00090009" 00024 “ADDRESS P.AAF 
48 43 00028 P.AAH: ASCII \CHARACTERISTICS\ 
00037 “BLKB 1 
0000000F 00038 P.AAG: LONG 15 
00000000" 0003¢ “ADDRESS P.AAH 
53 4D 52 4F 46 00040 P.AAJ: <ASCII  \FORMS\ 
00045 “BLKB 
00000005 00048 P.AAI: ‘LONG 
00000000" 0004¢ “ADDRESS P.AAJ 
QUEMANS_OPENOUT== 16453796 
QUEMANS~CLOSEOUT== 16453724 
QUEMANS"WRITEERR== 16453844 
.EXTRN CLISGET VALUE, CLISPRESENT 
“EXTRN SYSSGETOUIW, SYSSDCLEXH 
“EXTRN SYSS$CANEXH 
001¢ 00000 .ENTRY SHOWQUEUE, Save R2,R3,R4 
54 B3 AF OE 00002 MOVAB P.AAA, R 
33 000000006 00 9E 00006 MOVAB CLISPRESENT, R3 
2 0000' CF 3 90000 ROVAB FLAGS, R 
SE 14 ¢ 0012 SUBL2 #20, §P 
CF 00 FB 0001 CALLS @# OPEN OUTPUT 
Ag 05 A2 9A OOOIA MOVZBL FLAGS+5, “LIST DESC 
A 10 A2 9E OOO1F OV LIST_BUFFER, CIST_DESC+4 
54 DD 00024 PUSHL 
63 gi F 00 $ CALLS #1, CLISPRESENT 
0 0 F 0 INSV RO, #0, #1, FLAGS 
0c AG OF 00026 PUSHAB P.AAC 
63 or FB 00 1 CALLS #i, CL ISPRESENT 
1 0 F INSV RO. #1, #1, FLAGS 
C2 02060000 BF DO 9 9 MOVL #34471936, P2_DESC 
09 ce 4 ae CLRL  —- P2_DESC #4 
094 ¢€2 9F 0004 PUSHAB P27DESC 
18 AG 9F OOOGA PUSHAB 
00 02 FB 0004D CALLS #2, CLISGET_VALUE 


——_--__- — —-——-—--— a 


1 
MANSHO SHOW QUEUE command rhese -1984 00:18: AX-11 Bliss-32 V4.0-74 
Wee 008 1278001382 90: OB i28 LUTE SRE TQUEMANSHO. 682; 1 
7E 7C 00054 CLRQ = =( SP) 
7E 7C¢ 0 6 CLRQ (SP) 
7E gi 7D MOV = #1, =(SP) 
| 5 D4 00058 CLRL so 
| 000000006 00 07 FB 0005D CALLS #7, SYS$GETQUIW 
6E ps 0064 CLRL. sEXET_ 
04 AE 0000v CF 5 66 MOVAB EXIT“HANDLER, EXIT_BLOCK+4 
08 AE 01 0 006 MOVL #1 EXIT BL st + 
OC AE 10 AE 9E 00 MOVAB EXIT_BLOTK+16, EXIT_BLOCK+12 
10 AE 04 0007 CLRL EXIT BLOCK+16 
SE DD 00078 PUSHL SP 
000000006 00 07 FB B007A CALLS #1, SYSS$DCLEXH 
30 Ad 9F 00081 PUSHAB P.AAG 
63 gi FB 00084 CALLS #1, CLISPRESENT 
07 0 £9 00087 BLEC =E._s«aRO. 1 
0000v CF 00 FB OO0BA CALLS #0, SHOW CHARACTERISTICS 
15 11 OO0O8F BRB 3$ 
40 A& 9F 00091 1$ PUSHAB P.AAI 
63 01 FB 00094 CALLS #1, CLISPRESENT 
07 50 €9 00097 BLBC —_—«RO} 
0000v CF 00 FB O009A CALLS #0, SHOW_FORMS 
05 11 0009F BRB 3$ 
0000v CF 00 FB O00A1 3s CALLS #0, SHOW QUEUES 
0000v CF 00 FB OO0A6 3$ CALLS #0. CLOSE_OUTPUT 
SE DD OOOAB PUSHL SP 
000000006 00 01 FB OOOAD CALLS #1, SYSSCANEXH 
04 000B4 RET 


; Routine Size: 181 bytes, Routine Base: CODE + 0050 
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| 
| 
| 
: P $ $FAB_INIT(FAB=FAB, 
ls P ENS=. QUTPUT_DESCEDSCSW_LENGTH] | 
i P 8 FNA=.OUTPUT-DESCLDSCSA_POINTERJ, 
: P 035 FOP=<OFP,SQ0>, 
13 P 0360 DNM='.LI§", 
‘i P 6 RAT=CR 
13 P é FAC=PUT 
‘3 63 NAM=NAM) ; 
; P 0 65 2 SNAM_INIT(NAM=NAM | 
: Pp 66 ESA=OUTPUT_BUFF 
; P 036 ESS=NAMSC_MAXRSS, 
; P 4 RSA=OUTPUT_BUFF 
; $9 RSS=NAMSC_MAXRSS) ; | 
: 71 
$ Be Open the output file and save the file name away. | 
; 0374 STATUS = $CREATE(FAB=FAB); | 
; 0376 2 IF .NAMCNAMSB_RSLJ NEQ 0 
; 037 THEN 
; 0378 BEGIN 
; 0379 OUTPUT_DESCCDSCSW_LENGTH] = .NAMCNAMSB_RSLI; 
: 0380 : QUTPUT_DESC DSCSA_POINTER] = OUTPUT _BUFF; 
; O38¢ ELSE IF .NAMCNAMSB_ESL] NEQ 0 
; 38 THEN 
; 384 BEGIN | 
; 385 OUTPUT_DESCCDSC$W_LENGTH] = .NAMCNAMSB_ESL); 
F 0386 OUTPUT—DESCLDSC$A_POINTER] = OUTPUT_BUFF; 
: 2 es 
; 0389 IF NOT STATUS 
: 0391 SIGNAL_STOP(QUEMANS_OPENOUT,1,OUTPUT_DESC,.STATUS, .FABLFABSL_STV]); 
. ee: 
; 4 Bave Initialize the RAB and connect the record stream. 
: 399 P 0396 2 $RAB_INIT(RAB=RAB, | 
: 400 P 0397 RAC=SEQ | 
: 401 0398 FAB=F ABS ; | 
: 60 $200 STATUS = SCONNECT(RAB=RAB); 
: 404 08 IF NOT .STATUS | 
; 406 108 SIGNAL_STOP(QUEMANS_OPENOUT,1,OUTPUT_DESC,.STATUS, .RABLRABSL_STV)); 
: tog bcos | 
; 409 06 ¢ { Do a SGETDVI to get the width | 
: 411 408 2 DEVNAMCDSC$W_LENGTH] = .NAMCNAMSB DEV); | 
; 4@ 409 2 DEVNAMCDSCSA~POINTER) = .NAMCNAMSC_DEV); | 
: 4 410 2 ITMLST o. »16,0) = ZALLOCATION(DEVBUFSI2); 
> 616 11 2 ITMLSTC2.0,16,.0) = DVIS DEVBUFSIZ; 
+ 415 412 2 ITMLSTL4,0,32,0) = DEVBOFSIZ; 
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413 ITMLSTER 0 » 0) = 0; 
414 2 ITMLSTL1¢,6,3¢,0] = 6; 
15 FLAGSIB RIGHT MARGIN] = LIST_DEFAULT; 
0416 IF SGETBVIU(DEVNAM=DEVNAM, L7MLST=ITMLST) 
0418 FLAGSCB_RIGHT_MARGIN] = MINU(.DEVBUFSIZ, SALLOCATION(LIST_BUFFER)); 
0420 1 END; 
54 55 50 54 55 4F 0105 P.AAL: .ASCII \OUTPUT\ 
108 “BLKB 1 
0000006 0010C P.AAK: .LONG 6 
0990000" 0110 “ADDRESS P.AAL 
54 55 50 54 4F 00114 P.AAN: ASCII \OUTPUT\ 
O11A “BLKB 2 
90000006 O11 P.AAM: .LONG 6 
0090000" O12 “ADDRESS P.AAN 
3A 54 55 50 54 55 GF 24 53 59 53 00124 P.AAO: ASCII \SYSSOUTPUT:\ 
53 49 4C 2E OO12F P.AAP: <ASCII \.LIS\ 
$RMS_PTR= FAB 
$RMS~PTR= NAM 
SRMS~PTR= RAB 
.EXTRN SYSS$CREATE, SYSSCONNECT 
“EXTRN SYSS$GETDVIW 


01FC 00000 OPEN, OUTPUT : 


ORD Save R2,R3,R4,R5,R6,R7,R8 
58 000000006 00 9€ 00002 MOVAB LIBSSTOP, R 
57 0000' CF 3 00009 MOV GUTPUT DESC, R7 
SE 1¢ C2 900CE SUBL 8, SP 
CS) AF OF 00011 PUSHAB P.AAK 
000000006 00 QI FB 00014 CALLS #1, CLISPRESENT 
18 0 €9 0001B BLBC 
67 02060000 BF 00 OO01E MOVL  § #34471936, CUTPUT_DESC 
04 A? D4 000 CLRL OUTPUT _DESC+4 
57 BD 0028 PUSHL R 
BC AF 9F OO02A PUSHAB P.AAM 
000000006 00 02 re 00 D CALLS #2, CLISGET_VALUE 
67 010E000B8 8F 00 00036 18: MOVL  #17694731, OUTPUT_DESC 
06 =A Bl AF 3 99 MOV P.AAO OufpuT peste, 
00 6E wae 09 ¢ 4 28: movcS #0, (SP), #0,7#80, SRMS_PTR 
FFOC C7 aa F BO § 46 MOV 420483 SRMS_PTR 
FF10 C7 20000040 =F 06 0 3 MOVL  #536870976, SRMS_PTR+4 
FF22 C7 1 90 0005C¢ MOVE #1, $RMS_PTR+22 
FFOA C7 0202 F 80 9061 mMOVw #514, S$RAS PTR+30 
FF34 0 C7 FFSC C7 ; MOVAB NAM, SRMS_PTR+4 
FF38 C7 046 A? OD O06 MOVL  OUTPUT_DEST+4, SRMS_PTR+44 
FF3C C7 84 OAR OO 5 MOVAB P. _Ptr+4 
FF40 6 C7 7 3 7 MOVB OUTPUT_DESC> SRMS_PTR+S2 
FF41 = C7 4 MOVE #4, $RAS_PTR+S3 
00 6E 9 2c MOVCS #0, (SP)> #0, #96, SRMS_PTR 
FFSC OC 008C 
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eure 
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8F 
E 4 
E 98 
gE OB0AT 
oF A 
4, B 
g 08 
A QOOBA 
12 QOOBF 
8 ot) 
a0 O00¢8 
ef p08 4 
DD 0D 
OD 007 
DD 009 
OD 008 
0D ODD 
FB 0E3 
C OE6 5 
OED 
0 OOOEF 
4 OOOFS 
E OF8 
fF OFE 
B 01 
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6002 er 
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08 A? 
01 

68 A? 
FFOC iH 
FFSF 29 
07 

FF67 o8 
08 A? 
s 

FFI8 =6C¢ 
56 

57 

01 
OOFB10A4 = 8F 
05 

00 
BC A? 
4401 8F 
DA A? 
FFOC §8C? 
BC OA? 
01 

50 

56 

cs =A? 
56 

57 

01 
OOFBI10A4 = 8F 
05 

95 A? 
AO A? 
00080004 8F 
18 AE 
08 AE 
50s BF 
f 

10 AE 
24 =A 
3 

18 OA 

5 

4 

84 F 
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non 


p=1984 12:08:45 


AX-11 Bliss-32 v4.0 
424578 SRMS_PTR 
#1, $RMS_PTRF2 
0 feyr BOFF, S$RMS_PTR+4 
#1, $RAS_PTR+10 
oufPuT_B0FF , SRMS_PTR+12 
#1, SYSSCREATE 
RO STATUS 
Nahe , RO 
NAM+11, RO 
RO, OUTPUT_DESC 
QUPUT BUFF. OUTPUT_DESC+4 
STATUS, 5$ 
FAB+12 
STATUS 
R7 
#1 
#16453796 
#5, LIB$STOP 
#0, (SP), #0, #68, SRMS_PTR 
#17409, S$RMS_PTR 
$RMS_PTR+30 
FAB. SRMS_PTR+60 
#1, SYSSCONNECT 
RO, STATUS 
STATUS, 6$ 
RAB+12 
STATUS 
R7 
#1 
#16453796 
#5, JBSsTop 
NAM+57, DEVNAM 
NAN+ G8 DEVNAM+4 
#524298, ITMLST 
DEVBUF Siz. ITMLST+4 
1TMLST+ 
#80, FLAGS+S 
-(SP) 
-(SP) 
ITAL ST 
EVNAM 


(SP) 

‘ » SYSSGETDVIW 
DEVBUFSIZ, RO 
RO. via 


#132, RO 
RO, FLAGS*5 
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ROUTINE CLOSE_OUTPUT: NOVALUE= | 


421 1 

4 ¢ 1 
04 1 lee 
0424 1! 

425 1 ! FUNCTIONAL DESCRIPTION: 

" § : This routine closes the output file. 

428 1 ! INPUT PARAMETERS: 

429 1! NONE 
0430 1 | | 
0431 1 =! IMPLICIT INPUTS: 
Be ¢ : Output FAB and RAB. 
0434 1 | OUTPUT PARAMETERS: 
0435 1 NONE | 
0436 1! 
0437 1 =! IMPLICIT OUTPUTS: | 
0438 1! NONE 
0439 1! 
0440 1 ! ROUTINE VALUE: | 
0441 1 | NONE | 
044 3 | 
044 1 ! SIDE EFFECTS: 
0444 1! NONE 
0445 1! 
0446 1 !<- 
0447 1 
0448 2 BEGIN 
0449 2 LOCAL 
0450 2 STATUS; 
0451 2 
0626 2 
Oe 27 2 Disconnect the record stream. 
ett 5 Md NOT (STATUS = SDISCONNECT(RAB=RAB) } | 
of 44 2 SIGNAL (QUEMANS_CLOSEOUT,1,QOUTPUT_DESC,.STATUS, .RABCRABS$L_STVJ); | 
0459 $ | 
Be80 2 Close the file. 

Ree : NOT (STATUS = $CLOSE(FAB=F AB) ) 
Rees 3 SIGNAL (QUEMANS_CLOSEOUT,1,OUTPUT_DESC, .STATUS, .FABCFABSL_STVJ); 

0466 1 END; 


LEXTRN SYSSDISCONNECT, SYSSCLOSE | 
001¢ 00000 CLOSE_ouTPUT: | 
WORD 


. Save R2,R3,R4 : 0421 
$4 00000000G 00 9€ 00002 MOVAB LIBSSIGNAL, R4 ; 
53 0000° CF 9€ 0000 MOVAB OUTPUT_DESC, R3 ; 
BC A3 9F OO00E PUSHAB RAB : 0455 
000000006 00 01 FB 00011 CALLS #1, SYSSDISCONNECT ; 


SHOW QUEUE command 
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FF18 
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CODE + 029F 


0 AX-11 Blis 
4 CLIUTL.SRC 


RO, STATUS 
STATUS, i$ 
RAB+1 

STATUS 

R3 

#1 

#16453724 

# LIBSSIGNAL 
#1, SYSS$CLOSE 
RO, STATUS 
STATUS, 2 
FAB+12 

STATUS 

R3 


#16453724 
#5, LIBSSIGNAL 


5) 
0457. 
0462. 


® 0464 | 


| 
| 


| 
| 
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dD 2 
QUEMANSHO SHOW QUEUE command 16-Sep-1984 00:18:0 AX-11 Bliss-32 V4.0-74 Page 16 
04-000 eos ra a Cot bt ra Pet oe Pe wale 
: re “67 } ROUTINE FORMAT_CHARACTERISTICS(C): NOVALUE= 
: 476 469 1 !44 
s 4675 4 9 1! 
3 478 471 1 ! FUNCTIONAL DESCRIPTION: 
s rhs tts ! } This routine formats a characteristics mask. 
; 479 474 1 ! INPUT PARAMETERS: 
$ res Bee? } C - Pointer to 16-byte characteristics mask. 
; 48 O67? 1 ! IMPLICIT INPUTS: 
; 48 of8 1! NONE 
> 484 0479 1! 
> 485 0480 1 ! OUTPUT PARAMETERS: 
: 486 0481 1! NONE 
3 487 re 1! 
; 488 048 1 ! IMPLICIT OUTPUTS: 
: 489 0484 1! NONE 
3; 490 0485 1! 
: 491 pee 1 ! ROUTINE VALUE: 
; 49 48 ; 5 NONE 
: 49 0488 1 
3 494 0489 1 ! SIDE EFFECTS: 
3 «495 0490 1! NONE 
; 496 0491 1! 
: 497 0492 1 i-- 
: 498 0493 1 
3; 499 0494 BEGIN 
; 500 0495 MAP 
; 301 0496 REF BITVECTOR; : Pointer to characteristics vector 
$ Of 0497 LOCAL 
; 3 0498 UNDONE , ' fount of set bits left 
: 504 0499 LPUNC, ! Leading punctuation 
; 505 0500 TPUNC; ! Trailing punctuation 
; 506 0501 
3s 507 b20¢ . 
$ 200 R207 Count the number of characteristics to display. 
; 510 0505 UNDONE = 0; | 
3 31) B59 INCR I FROM 0 TO 127 DO IF .CL.1] THEN UNDONE = .UNDONE + 1; 
; 218 0508 
; 5146 0509 IF .UNDONE NEQ 0 
3 e2 9219 THEN 
: 16 51 BEGIN 
ie a b21§ LPUNC = UPLIT BYTE (ZASCIC ‘/CHAR=("); 
; 518 051 INCR I FROM O TO 127 DO 
; $19 0514 4 N 
: 520 0515 4 IF .CC.1) 
: Sel g218 4 THEN 
fi § 51 5 BEGIN 
: : 218 TPUNC = ZASCIC °,°; 
3 4 51 UNDONE = .UND © I; 
; $2 B3 0 IF .UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 
3 6 521 FAO ("!AC'UL'AC’, .LPUNC, . F ; 
: 37 05 : LPURC = UPLIT BYfe (xascic’*'); 
; 528 05 4 END; 


ora HO 


3; Routine Size: 


SHOW QUEUE command 


Routine Base: 


If -UNDONE EQL 0 THEN EXITLOOP; 
FLAGSCB_PENDING_SPACES) = 1; 
END; 


3 8 Gi 


SE 


BC 
50 0000007F 


53 CE 
BC 
6E 2c01 
6E 2901 
4004 
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gf 
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CF 
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CLIUTL.SRO) QUEMANSHO. 


001C 00000 FORMAT eee ine 
WORD seve Se. oR3,R4 


UNDONE 

1, ac, 2$ 

UNDONE 

#27, I, 1$ 
DONE 

P.AAQ, LPUNC 

1, ac, 5$ 

i265, TPUNC 


a 

#10497, TPUNC 
#*M<R2,SP> 
LPUNC 


#27 
oT dese? 


, 2 
SUERANSHO SHOW QUEUE command 1o~se07 138% 90:18:03 AX-11 Bliss-32 V4.0-74 


14-Sep-1 CLIUTL. SRC JQUEMANSHO.852;1 
: 5 5 8 } ROUTINE FORMAT_CPU_TIME (NAME ,VALUE): NOVALUE= 
; 1 1 te4 
; 8 5 4 1! 
$ 9 5 1 ! FUNCTIONAL DESCRIPTION: 
3 re 2 : : } This routine formats a CPU time parameter. 
: sce 5 : 1 | INPUT PARAMETERS: 
3; 3 05 1! NAME - Name of the CPU time parameter. 
3 ete 82 : : VALUE - Value of the parameter. 
: Sug 9540 1 | IMPLICIT INPUTS: 
: 2t8 beeo 1 i _ 
: 549 0368 1 | OUTPUT PARAMETERS: 
: 32 pees} i _ 
; 23 0546 1 i IMPLICIT OUTPUTS: 
i 32 bece 1 | — 
: 555 0549 1 ! ROUTINE VALUE: 
: 328 pee, i _— 
: 558 053¢ 1 ' SIDE EFFECTS: 
3: 559 0553 1! NONE 
; 560 0554 1! 
3; 561 0555 1 !-- 
ed asc 
; 364 0558 5 IF VALUE EQL 0 
; 566 0560 FAO_("/!ACSINFINITE’, .NAME) 
s 567 0561 ELS 
oe es 
: 570 0564 TIME_STRING BBL OCKET6I, 
3; 571 0565 TIME _DESC VECTOR $4: 
3 376 0566 DELTA VECTOR(2); 
| Be 
: 272 0369 : Convert the time expressed in 10 ms units to a system delta-time value. 
: 377 0971 EMUL (ZREF (100000), VALUE, ZREF(O), DELTA); 
: 379 258 
: 4] 378 Convert the system delta-time value to a string. 
: 38 576 Time _vesctoy = ZALLOCATION(TIME_STRING); 
; 38 57 TIME _DESCL1) = TIME_STR ° 
3 286 0375 SASCTIM(TIMBUF=TIME~DESC, TIMADR=DELTA); 
: 586 580 
3 387 2) ! Edit the string to make it more readable. If the string specifies zero 
; 4588 5 ; ! days or zero hundredths of seconds, remove these fields from the string 
3 34 58 ! since they are rarely nonzero. Remove leading spaces from the string. 
; 590 584 ! Also, convert the space that separates days from hours to a hyphen to 
; 591 0585 i match the delta-time input syntax. 


2 
QUEMANSHO SHOW QUEUE command 18-5 p-1 
vo 1860-1984 15:08:45 
. 9 ' 
: §9 389 if .TIME_STRING 0).€QL * 0° THEN TIME_STRI 
3 ie 5 8 IF TIME -STRINGE 3,0, 6°54°03°eG, 00" THEN THME-DESCL i: 
: 595 SKPC( REF (aC {ih E_bESCCO], .TIME_DESCL1I;~TIME OP sec03! 
: 396 590 TIME STRINGCS 0, 6, 0) =7xC*-"; 
; 59 391 FAO_T'/!AC=!AS", CNAME, TIME_DESC); 
; 598 3 END; 
: 599 59 FLAGSLB_PENDING_ SPACES] = 1; 
; 600 594 1 END 
45 54 49 4E 49 46 4E 49 3D 43 41 21 2F OD 00360 P.AAT: .ASCII 
rk rt rr 31 St 88 OO36E P.AAU: <ASCII 
.EXTRN 


0000 00000 FORMAT_CPU_TIME: 
ORD 


oW 
5E 20 C2 0000 SUBL2 
08 AC 05 0000 TSTL 
0D 12 00008 BNEQ 
04 AC ODD OOOOA PUSHL 
D9 AF 9F 0000D PUSHAB 
0000v CF 2 FB id CALLS 
E 11 0001 BRB 
6E 00 08 AC FFFE7960 8F 7A 00017 1$ EMUL 
0B AE 10 pO 00021 MOVL 
0c AE 10 AE 9E 00025 MOVAB 
7E 04 898 A CLRL 
04 AE 9F 0002C PUSHAB 
10 AE 9F 0002F PUSHAB 
7E 04 00032 LRL 
444 00 04 FB 000 CALLS 
0202020 8F 10 AE 01 000 PL 
4 is 004 BNEQ 
13° OA 0 90 0004 B 
0030302E 8F 1D AE 1 0 ‘ Bae? 23 CMPZV 
4 bee BNEQ 
8 AE D 00 MOVL 
Oc «CBE 8 AE 0 38 it 3$ SKPC 
8 AE 0 70 0005F MOva 
14 AE 20 +4 393 MOVB 
8 AE OF PUSH. 
4 AC gp A PUSHL 
7 AF OOF PUS 
OOOv CF 3 £8 CALLS 
000° CF 1 Bot 4$: MOVB 
04 7A RET 
3; Routine Size: 123 bytes, Routine Base: CODE + 0377 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRC JQUEMANSHO.B52; 1 


6 3, 0, - = 2C' '; 


TIME _DESCL1)); 


<13>\/ 1 AC= INF INITE\ 
<B>\/!AC=!AS\ 


SYSSASCTIM 

Save nothing 

#32, SP 

VALUE 

1$ 

NAME 

P. AAT 

#2, FAO 

#100000 VALUE, #0, DELTA 
#16 DESC 

Hig sn TIME _DESC+4 


DELTA 
TIME DESC 
=(SPY 


#4, SYSSASCT 
TIME STRING, 11807611746 


#32, TIME STRING+3 
#0, #24, TIME -STRING+13, #3158062 


TRING®G 


AO 
#i, FLAGS+7 


oyens HO 


; 6 
; 6 
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; 6 
; 6 
; 6 
; 6 
; 6 
; 6 
; 6 
> 6 
; 6 
; 6 
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SHOW QUEUE command 16-Sep-1984 99: i # 0 AX-11 B 


ROUTINE FORMAT_DEFAULT(QUEUE_FLAGS): NOVALUE= 


NO 


O00 


lee 
i 


i FUNCTIONAL DESCRIPTION: 
' This routine formats the value of the /DEFAULT qualifier. 


INPUT PARAMETERS: 
QUEUE _FLAGS - Queue fiags item. 


IMPLICIT INPUTS: 
NONE 


LEGRAWLSSS 


oo 
ooo 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
QUEUE _FLAGS: BBLOCK; ! Queue flags 


ee 


LOCAL 
UNDONE : BBLOCK(4], ! What's left to do 
LPUNC, 
TPUNC; 
MACRO 
Vv. ~FEED= 


r LAG= 


V BURST= 
ver 
vz TRAILER= 


ttt ttttttatttttt ttt ttt tt ttt eee 


NOUS WN 9 OONOUNE WO OONOUS WO 


ONE 
“QUEUE CF ass QUI$V_QUEUE 


WIWWAWAIA.AIA 


RST) 
RST_ONE) 


BUR 
~ QUEUE" FLAGS(CQUI$V"Q Eve E~BU 
THEN ONDONELV it th T 
If . arty FLAGS 201 180 QUEUE E_PAGINATE) 
F 
F 
Ra 
=! 


fF 

“F 

F 

HEN ON fe TRUE ; 

IF .QUEUE_FLAGS[QOI$V_QUEUE -f 
U 

F 

F 


FSS 


OR .QUEVE’FLAGS[QUI $V" QUEUE” 
THEN V_FLA 


IF .QUEUE_FLAGS a01$v QUEUE 
OR “QUEU UE" FLAGSCQUI SV" QUEUE 


a Al 
ONDONECV_TRATLER) = 


= 


—SOOONOUS WHO OW 


ww 


F ats NEQ 0 


& 


Liss-32 V4.0-74 
CLIUTL.SRC 


QUEMANSHO.852; 1 


Peer 6) 


2 
QUEMANSHO SHOW QUEUE d 16-Sep-1984 00:18: AX-11 Bliss-3 
yOne008 eee 1b-se0-19 t 99:38:9 Aer uTe eRe TOUEMANeHO. 69251 


: 659 6 é BEGIN 

; 660 LPUNC = UPLIT BYTE (EASCIC "/DEFAULT=("); 

; 661 i MILE , UNDONE NEQ 0 D 

; 666 655 4 

: 66 § 4 TPUNC = ZASCIC ','; 

3 664 657 4 

; 665 228 4 

; 666 659 4 IF_TESTBITSC(UNDONECV_BURST)) 

; 66 60 4 THEN 

; 668 661 N 

: 669 3 IF .UNDONE EQL 0 THEN TPUNC = ZASCIC °)'; 

: 670 6 IF - QUEUE efbAcst QUI$V_QUEUE rf ibe- BURST ONE) 

: 671 ACBURST=ONE TAC unt, TPUNC) 
; 67 65 , ELSE FAD ( TACBURST ING , ‘bute TPUNC) ; 

3: 67 8908 

: 674 66 

: 675 668 

: 676 69 4 ELSE IF TESTBITSC(UNDONECV_FEED)) 

: 677 670 4 THEN 

3; 678 0671 5 

; 679 067¢ IF .UNDONE ts? THEN TPUNC = ZASCIC ')°: 

3 680 067 IF .QUEUE ELAGs QUISV QUEUE _FILE PAGINATE] 

: 681 674 THEN FAO_(*!ACFEEB!AC’,~.LPUNC, TPUNC); 

; 68 675 5 

3; 68 i: 5 

; 684 77:~«5 

; 685 0678 4 ELSE IF TESTBITSC(UNDONELV_FLAG)) 

3 0679 4 THE 

: 687 0680 BEGIN 

; 0681 IF E EQL fe THEN TPUNC = ZASCIC ')°; 

> 689 068 IF “QUEUE rfbAss Qui sy 2Queve FILE _FLAG ONE] 

; 690 068 G=ONE!AC', “LPUNC, TPUNC) 
: 691 0684 Lee FAD CO TACELAG INCE: “ buNe. TPUNC) ; 

: 69 0685 ND 

; 69 0686 

: 694 8 

: 695 88 4 ELSE IF TESTBITSC(UNDONELV_TRAILER)) 

; 696 0689 4 THEN 

: 697 90 BE 

: 698 91 IF .UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 

: 699 9 IF - QUEUE FLAGS tQuisy QUEUE af thee TRAILER, ONE 
; 700 $68 THEN FA TRATLE PUNE. TPUNC) 
: 701 34 ; ELSE FAO~ (*TACTRATLER! rab ot ng 0); 
: 708 a8 4 

em. 97 & 

: 705 98 4 LPUNC = UPLIT BYTE (ZASCIC '"); 

3 re END; 

: 70 00 FLAGSCB_PENDING_SPACES) = 1; 

: 708 701 END; 

: 709 702 1 END; 


2 & 5 41 4 $3 44 2F a ue P.AAV: .ASCII ate tee an Tes 
41 21 45 4€ of D d 5 2 55 42 435 41 21 44 fe P.AAW: ASCII <15>\!ACBURST=ONE!AC\ 


re 


QUEMANSHO SHOW QUEUE command 1b-se Sep-1 70 AX-11 Bliss-32 V4.0-74 Pp 
vOe-000 1e8eb-13be F3idBscs «Hee TUTLESAESaoeMANsAO-BS2:1 aoe $f 
4 4 53 52 55 42 43 41 21 OB 00400 P.AAX: .ASCII <11>\!ACBURSTIAC\ ; 
£3 1 44 2g 22 te 43 41 231 OA 419 P-AAY: .ASCII <1O>\iACFEEDIAC\ : 
43 41 21 4 D 47 41 46C 466 43 41 31 OF 00424 P.AAZ: “ASCII <14>\ i ACELAGSONE !AC\ F 
4 1 47 41 46 46 43 41 21 OA 00433 PABA: <ASCII <10>\'ACFLAG! ; 
45 GE 4F 8 C 49 41 52 54 & 41 é1 Ase P.ABB: .ASCII <1 SN IACTRAILERSONE !AC\ : 
43 41 52 4C 49 41 52 54 43 41 21 bp 9490 P- ABC: ASCII <}3>\!ACTRAILER!AC\ : 
001C 00000 FORMAT_DEFAULT: | 
WORD Save R2,R3,R4 3 0595. 
54 BE AF 9E 00002 MOV P.AAV, R4 : 
SE 04 C2 000 SUBL : 
33 D4 000 CLRL + UNDONE : 0636 | 
04 Ac 03 £0 00008 BBS #3, QUEUE_FLAGS, 1$ + 0637 
04 aC 04 Fi 9010 BC #4. QUEUE-FLAGS, 2$ + 0638 
5 1 88 00015 1$: BISB2 #1. UNDON + 0639 
06 AC 4 0018 2$: BC #6. QUEUE FLAGS+2, 3$ + 0640 
5 8 0001D BISB2 #2. + 0641 
04 AC £0 00 0 3$: BS “5, SUEUE FLAGS, 4$ + 064 
04 aC 06 Fi 0025 BBC #6. QUEUE-FLAGS. 5$ : 064 
4 88 OO02A 4$: BISB2 #4. UNDON + 0644 
04 AC 95 00020 5$: TSTB © QUEUE_FLAGS + 0645 
04 19 000 0 BLSS ; 
03 0S AC £9 00 BLBC QUEUE FLAGS+1, 7$ > 064 
3 08 8 00036 6s BISB2 #8, UNDONE : 064 
53 D5 00039 7$ TSTL UNDONE : 0650 
01 12 00038 BNE $ : 
94 00030 RET : 
52 64 0003E 8$: MOVAB P.AAV, LPUNC > 0653 
; DS 00041 9$: TSTL NDONE + 0654 
03 1 00045 BNEO : 
0095 31 9004 BRW 23$ : 
66 201 BF c 0048 10$ MOVZWL #11265, oyBUNE + 0656 
5 E5 00040 BBCCs#O , 138 : 0659 
5 b3 0051 TSTL undo ° > 0662 
} 00 3 BNEG 1$ ; 
6E 2901 BF 3¢ 09 MOVZWL #10497 TPUNC : 
04 AC 4 €1 60 2A 11$: C 4, nc eyEUE FLAGS, 12$ + 0663 
4004 8F BB 0 F PUSHR > 0664 
08 4 71 ope BRB a 
4004 &8F BB ° 12$:  PUSHR #*M<R2,SP> > 0665 
1B AG 9F 0006C PUSHAB P.AAX F 
60 11 00 of BRB 2i$ : 
53 1 € 113$: BBCC #1, UNDONE, 15$ > 0669 
3 0D a3 TSTL HONE : 0672 
6 2901 BEONE. Boor MOVZuL #10697 : 
06 AC 6 ey 7E 14$: BBC a6. 5: SyeuEs WAGS#2, 22$ : 0673 
4094 F BS PUSHR > 0674 
7 AO OF PUSHAB : 
53 $3 es O008C 158: Barc 82° UNDONE, 188 : 0678 
8 FR § TSTL UNDONE : 0681 


Kk 2 | 
QUEMANSHO SHOW QUEUE command 16-Sep- :0 AX-11 Bliss-32 V4.0 Page 23. 
voe bak tat) ak et em tht he org re OP . 3) 
5 12 0009 16$ : 
6E 2901 «BF \é a34 SOY TUL 410497 : | 
09 04 AC 6 £1 00099 16%: BBC iis YN AGS. 17$ + 0682 | 
4094 F 68 09 PUSHR rhc : 068 
2 AG F QOOA PUSHAB § 
A 11 QOOA BRB bia ; 
4004 F ge A? 17$ PUSHR #*M<R2,SP> : 0684 
41 as 9 Ag PUSHAB P.ABA ; 
22 53 6 E 080 18$: BBCC #3, UNDONE, 22$ : 0688 
D B4 TSTL NOONE + 0691 
: | 8 BNE F 
6E 2901 ‘BF ¢ B MOVZWL #104 ; 
09 05 AC €9 000BD 198 BLBC yeve shines 20$ : 069 
4004 &8F BB C1 PUSHR + 069 
4C AG 9F 000C PUSHAB 5 none : 
7 11 000¢ BRB 2i$ : 
4004 F 6B ogee 208: PUSHR #*M<R2,SP> 3 0694 
SE AG 9F OGOCE PUSHAB : 
0000v CF 03 FB 00001 21$: CALLS #3, FAO : 
52 6C A& 9E 00006 22$: MOVAB  P.ABD, LPUNC + 0698 
FF64 31 OOODA BRW : 0654 
0000" CF 01 90 000DD 23$: MOVB #1, FLAGS+7 + 0700 
04 000E2 RET + 0702 


3; Routine Size: 227 bytes, Routine Base: CODE + 045F 


2 
a aa IESEEHOEE UGE MEU SRNatbalileBen) mF 


: 71) ? ; ROUTINE FORMAT_MARGINS(BOTTOM,LEFT,RIGHT, TOP): NOVALUE= 

: nf 103} i+ 

> 715 707 1 | FUNCTIONAL DESCRIPTION: 

3 rig f : } This routine formats the value of the /MARGIN qualifier. 

; z18 710 1 § INPUT PARAMETERS: 

; i 71) 9 8 BOTTOM - Values of the four margins 

: 720 re ii LEFT . 

> 721 713 13 RIGHT - 

: 7 71413 TOP - 

eg Q 715 13 

: 726 0716 1 | IMPLICIT INPUTS: 

ae SL ee 

ee Q 0719 1 | OUTPUT PARAMETERS: 

: 9S8 O75 1 | — 

: 786 07 g 1 ! IMPLICIT OUTPUTS: | 
; ? 1 07 ; ; NONE | 
; r3¢ $ 5 1 ! ROUTINE VALUE: | 
rata Be dt 

: 7 0728 1 | SIDE EFFECTS: 

: 737 0729 1! NONE 

: 738 0730 1: 

me eas 

: 741 $7 : BEGIN | 
> 76 0734 LOCAL 
: 74 0735 UNDONE : BBLOCK(4], ! What's left to do 
> 2he 0736 LPUNC, | 
3; 745 073 TPUNC; | 
: ms ee 5 Oe cape 1,0 % | 
+ 748 0740 V~BOTTOM= 8797420 = 
: 749 0741 V7LEFT= *2-1.0 %. | 
° 750 Bre V_RIGHT= e 1,0 q; 

: Fa Sez 

; Fag 745 2 UNDONE = 0; 

: 034 246 IF .TOP NEQ O 

> 755 74 THEN UNDONECV_TOP) = TRUE; 

: 756 748 2 IF .BOTTOM NEQ 

: 757 749 THEN UNDONELV_BOTTOM] = TRUE; 

: 758 750 2 IF .LEFT NEQ 0 

: 759 751 THEN UNDONE CV_LEFTJ = TRUE; 

> 760 7 3 IF .RIGHT NEQ 

> 761 2 THEN UNDONELV_RIGHT) = TRUE; 

: 98 reg 

> 764 736 IF .UNDONE NEQ 0 

: £63 Le egg 

: res b930 LPUNC = UPLIT BYTE (ZASCIC "/MARGIN=("); 


M 2 
MANSHO SHOW QUEUE command 16-Sep-1984 00:18:0 AxX-11 Bliss-32 V Page 25. 
wbie 1o-se =} 382 Pt fe CLIUTL. SRC AEFaiemangg0. ago, :1 . (33 
: 768 760 3 WHILE .UNDONE NEQ 0 DO 
: 769 761 4 N 
: 770 166 4 TPUNC = XZASCIC ','; 
; 771 765 4 
; 358 764 & 
ee. 765 4 IF TESTBITSC(UNDONECV_TOPJ) | 
: 77% 766 4 THEN 
: 775 076 BEGIN | 
: 776 0768 IF UNDONE EQL 0 THEN TPUNC = ZASCIC *)*: 
; 777 69 FAO_(*!ACTOP=! ULIACT™ SLPUNC, =TOBy TPUNED; | 
: 778 0770 END~ 
: 779 9771 | 
: 780 0 
: 781 O77 4 ELSE IF TESTBITSC(UNDONECV_BOTTOM)) 
; 78 774 & THEN 
: 78 0775 «5 GIN 
: 784 0776 § IF .UNDONE Lot THEN TPUNC = ZASCIC ')'; 
: 785 077 2 FAO. Cae cBOrT OM=!UL! AC! , «LPUNC, Cae TTOM: TPUNC); 
: 786 0778 END™ 
: 787 0779 § | 
: 788 0780 § 
: 789 0781 4 ELSE IF TESTBITSC(UNDONELV_LEfT) 
: 790 O78e 4 THEN 
: 791 078 2 BEGIN 
: 79 0784 IF .UNDONE EQL 0 THEN TPUNC = %ASCIC ')'; 
: 79 0785 3 FAO_("!ACLEFT=!UL!AC", .LPUNC, .LEFT, toiNC):; 
: 794 786 END 
: 795 0787 5 | 
: 796 0788 5 
: 797 0789 4 ELSE IF TESTBITSC(UNDONECV_RIGHT)) 
: 798 0790 4 THEN 
: 799 0791 5 BEGIN | 
; 800 0798 5 IF ONE EQL 0 THEN TPUNC = ZASCIC ')'; 
> 801 0793 5 FAO. SOA CRIGHT =!'UL'AC', .LPUNC, RIGHT, TPUNC); 
; 80 0794 4 END? 
: 80 0795 4 
3 804 0796 4 
3 805 0797 4 LPUNC = UPLIT BYTE (ZASCIC '"); 
; 806 0798 END; 
: 807 0799 FLAGSCB_PENDING_SPACES) = 
> B08 0800 ND; | 
; 809 0801 1 END; 
28 3D 4E 49 47 52 41 4D 2F 09 00542 P.ABE: ASCII <9>\/MARGIN=(\ : 
43 41 21 4C 55° 21 3 50 4F 54 43 41 21 95 54C P.ABF: ASCII <13>\!ACTOP='UL!AC\ : 
21 4C 55 21 30 4D 4F 54 54 4F 42 43 41 é} 10 25 P.ABG: .ASCII S1a>N TACBOT TORS TUL SAC : 
463 41 21 4C 55 21 3D 54 46 45 4C 43 41 21 OF 00568 P.ABH: ASCII <14>\'ACLEFT=!UL!AC\ : | 
41 21 4¢ 55 3} $ 4 48 ‘3 49 “5 43 41 $i oF HL P.ABI: .ASCII <15>\iACRIGHT=!UL!AC\ : | 
00 ith P.ABJ: .ASCII <0> 3 
001C 00000 FORMAT_MARGINS: 


Sn ne 


) 
} 


N 2 
SUE RASNO SHOW QUEUE command Jo~3e0° 1384 90:18:03 AX-11 Bliss-32 V4.0-74 Page (3 | 


Sep CLIUTL.SRCJQUEMANSHO.B32;1 ) 
eWORD Save R2,R3,R4 : 0703) 
54 B2 AF i HOVAB P.ABE, R4 : 
E 04 C | SUBL2 #4, § : 
2 D4 CLRL  _— UNDONE * 0745 
10 aC p B sit TOP + 0746 
52 83 8 0 ip BISB2 #1, UNDONE + 0747 
04 5 p 1$: st OfTOM : 0748 
52 8 g O08 BISB2 #2, UNDONE + 0749 
08 aC D 18 2s: st FT + 0750 
52 4 o36 BIS62 #4, UNDONE + 0751 
0c AC p 99 3$: TST RIGHT : 0752 
52 : 88 000 8 BISB2 #8, UNDONE : 0753 
DS 00028 4$: TSTL ‘UNDONE : 0756 
E 13 0002D BEQL : 
53 64 9E 0002F MOVAB P.ABE, LPUNC + 0759 
: DS 00032 5$: TSTL UNDONE : 0760 
72 13 00034 BEQL 15 : 
66 2c01 BF 3 000 MOVZWL #11265, TPUNC : 0762 
15 5 00 €E5 00038 Bec C #0, UNDONE, 7$ : 0765 
52 D5 0003F TSTL ‘UNDONE + 0768 
0 12 00041 BNEG 6$ : 
6E 2901 BF 3C 90045 MOVZ2WL #10497, TPUNC : 
5E DD 00048 6$: PUSHL SP : 0769) 
10 ac DD 00044 PUSHL TOP F 
53 DD 0004D PUSHL LPUNC F 
OA Ab OF 90048 PUSHAB P.ABF : 
49 11 00052 BRB 13$ : 
15 52 01 € 00054 7$: BBCC #1, UNDONE, 9$ : 0773 
32 D 0098 TSTL NDONE : 0776 
05 12 0005 BNE : 
6E 2901 BF 3C 0005C MOVZWL #10497, TPUNC : 
5E DD 00061 8s: PUSHL SP : 0777 
04 aC DD 00063 PUSHL BOTTOM : 
53 DD 0066 PUSHL LPUNC : 
18 Ad 9F 0006 PUSHAB : 
30 11 0068 BRB 13s : 
15 52 Q E5 00 6p 9$: BBCC #2, UNDONE, 11$ : 0781 
p aor TstL UNDONE + 0784 
6 901 8F 3C 0007 MOVZWL #10497, TPUNC : 
. . i DD BOTA 108: PUSHL SP : 0785 | 
08 ac DD 0007¢ PUSHL LEFT ; | 
5 BD 0 7F PUSHL LPUNC : | 
29 Ak OOF 1 PUSHAB P.ABH ; 
17 11 000 BRB \3s : 
18 52 E 11$: CC = #3, - UNDONE, 148 : 0789 | 
A TSTL BONE : 0792 
6E 2901 BF 3C f BOY Zul #10497 TPUNC : 
E dD 12$: PUSHL SP : 0793 | 
0c AC DD 0009 PUSHL RIGHT : 
5 bb 09 PUSHL LPUNC : 
38 «Ad «OOF OO09A PUSHAB P.AB] ; 


3 

auras HO SHOW QUEUE command 16- “Sep 9° 138t 99: 43: Pf AX-11 Bliss-32 V4.0-74 
Vv 14-Sep-1984 12:0 CLIUTL.SRC JQUEMANSHO.B52;1 

0000Vv gf 04 FB 0009D 138: CALLS FAO 

3 48 AG 7 Bp As 14%: MOVAB P. ABJ, LPUNC 
8A 1 A BRB 5 
0000" CF 01 90 OQO0A8 15$: MOVB #1, FLAGS+7 
04 OOOAD 168: RET 


; Routine Size: 174 bytes, Routine Base: CODE + 0588 


‘2.0000 


SL 


fo Je te -] 
PMIPIPUNINITUR 2 2 


OWONAVEWN "OC OONAUES WN HOO ONOUS WR 


WWIWNIANIWIPPon 


2 09 Cd CD Cd C9 C9 C0 0D CD CD CD CD 
= WWW 


(C0 Cd Go Gd Od Od Co Cp Cd Cd Cd CO 
ee 


MAVIMAVIMNMNIUIUI 


ODONAULSWN—OOOn 
BBE EEE MAM ININININIHAAPINININIIINIMN IN III IAI a a kk kk dd dd 


vvvD 


SFSSTSE. 


3 
SHOW QUEUE command ibese -1984 :18:05 AxX-11 BLi 
12nep-19be SS:b8i88 = PARTY Skis 


ROUTINE FORMAT_PARAMETERS: NOVALUE= 
14 


' 
setae yr DESCRIPTION: 
INPUT PARAMETERS: 
Pairs of <length, address>. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 


. 
' 
. 
' 
. 
! 
. 
' 
. 
1 
. 
' 
. 
' 
. 
1 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
‘ 
. 
' 
. 
1 
. 
' 
. 
' 
. 
' 
. 
' 
. 
le 
. 


BEGIN 

BUILTIN 

Lo ACTUALPARAME TER; 
UNDONE , 
LPUNC, 
TPUNC; 


UNDONE = 8; 

DECR I FROM 15 TO 1 BY 2 DO 
IF ACTUALPARAMETER(.1) NEQ 0 THEN EXITLOOP; 
UNDONE = .UNDONE - 1; 


IF .UNDONE NEQ 0 
THEN 
BEGIN 
LPUNC = UPLIT BYTE (ZASCIC */PARAM=("); 
INCR I FROM 1 TO 15 BY 2 DO 
TPUNC = ZASCIC ',°; 
UNDONE = ; UNDONE -"1; 
IF UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 
FAO_('IACHAFTIAC®, 
. LPUNC 
ACTUALPARAMETER(.1), ACTUALPARAMETER(.1 + 1), 
TPUNC) ; 


Sout see ae 
QUEMANSHO.B32;1 


is routine formats the value of the /PARAMETERS qualifier. 


oc 


: 0859 «4 LPUNC = UPLIT BYTE (ZASCIC '"); 
; $9 69 IF, UNDONE EQL 0 THEN EXITLOOP: 
: 871 ¢ FLAGS(B_PENDING_SPACES) = 1; 

3 Le: 8 6 END; 

; 87 END; 


5 4 C2 0000 

2§ 8s 58 tits 

50 OF D0 00008 
640 p 00008 18: 

OF OF bord 
FFF2 50 FEF 04 90 90012 ay 
40 3 00018 

55 CA AF 9E 0001D 

52 01 20 00021 
6E 2c01 8F 3C 00024 3S: 

se BL $89 

53 DS 0002D 

oie te 
oc aot BF BE B08 

04 AC42 DD 0005A 

art 4 

AD AF oF 0043 

0000v CF 05 FB 00046 

55 Bl oAF 9 0048 

ree 2 § ge FP aia 
0000" CF 8 90 etd 5$: 
04 0005D 6$: 


; Routine Size: 94 bytes, Routine Base: CODE + 064F 


8 3D 4D 41 52 41 50 2F 08 00639 P.ABK: 
43 41 21 $5 46 41 21 3 43 41 $4 op G0see P.ABL: 


. 3 
pan St coment IESEHBH 9:08:28 


003C 00000 FORMAT_PARAMETERS: 
D Save R2,R3,R4,R5 


SUBL2 


<8>\/PARAM=(\ 


<TIDNIAC’ IAF’ IAC 


<0> 


At 

p= ABK., LPUNC 

#11265, TPUNC 
UNDONE 

R4 

UNDONE 

4$ 

RG 

#10497, TPUNC 


4(AP)CI) 
(AP) C1 


wis, a $ 
“i, Fthest? ’ 


AX-11 Blis 


CLIUTL. SRC JQUEMANSHO.B52; 1 


Page 18) 


Pe See Se Se Ge Ge Se Se Se Se Be Se Se Be Be Be Se Se Be Se Se Se Be Se Se Se Se Be Se 


SHOU QUEUE command 1Eseerge 98:18:08 YAEGHT OLLEHGRE ttsOc7A. 


3 


LPUNC = UPLIT a (ZASCIC */PROTECTION=("); 


1 
1 1 
1 : TNCR 1 FROM OT 
1 BEGIN 
1 904 TPUNC = ZASCIC 
1 5 IF } EOL tt EN * tbunc = ZASCIC ')'; 
1 9906 IF .VALUE<.1*4, 4> NEQ 7B°1 111° 
1 90 THEN 
1 BEGIN 
1 LOCAL 
T: VECTORE4 BYTE), 
0 TL; 


ooo 


TL = 0; 

INCR J + 0 10 3 DO 
IF NOT .VALUE<.1*4+.J, 1> 
THEN 


NO VEUN OOOO USN 


BEGIN 
TEeTL) = .RWEDC.J); 
TL = .TL + 1; 


4 6 65 ! ROUTINE FORMAT_PROTECTION(VALUE): NOVALUE= 
: 1g 67 1 te 

3 re re 1: 

; 1 ! FUNCTIONAL DESCRIPTION: 

3 30 : : This routine formats a protection value. 
; B 72 1 | INPUT PARAMETERS: 

3 ti a : : VALUE - Value of the parameter. 
3 5 75 1°! IMPLICIT INPUTS: 

3 f ; : NONE 

; 888 e 8 1 ! OUTPUT PARAMETERS: 

3 9 79 1! NONE 

; 890 0880 1! 

3 91 oe 1 1°! IMPLICIT OUTPUTS: 

3 4 8 ¢ 1! NONE 

: 89 4 1! 

3; 894 884 1 ! ROUTINE VALUE: 

3; «895 tH 1! NONE 

3 38 ty 1! 

; 89 0887 1 ! SIDE EFFECTS: 

; 898 688 1! NONE 

: 899 $889 1 

: 900 0890 1 in- 

: 901 0891 1 

3 it 089 BEGIN 

; 90 089 LOCAL 

: 904 0894 LPUNC, 

; 905 i ath TPUNC; 

3 309 O89 SOGW = UPLIT(*SOGW'): VECTORC, BYTE), 
: 908 0898 RWED = UPLIT(*RWED'): VECTORL.BYTE): 
; 909 0944 

3 4 

3 4 

3 4 

3 4 

3 4 

3 4 

: ; 

3 6 


DODOODOOOOODOODOOOOOOVNNOOVONO 


—SOOONOUS wy 0 0 


PID) et et et et oo 


— 
oo 


Peer 445 | 


AX-11 a -32 V4.0-7 8 
CLIUTL.SRC1 QUEMANSHO.B52; 1 


es 
Se 
5 


SHOW QUEUE command 16-s00~-198 90: 18:03 


rane i 


wr 


as 


END; 
FAO_CTIACIAD: !ADIAC", -LPUNC, 1, SOGWL.I1J, .TL, T, TPUNC); 


; § \) ; 
; 9 \) 
: Bz 958 ELSE 
; 3 § 3 $ FAO_("!AC!ADIAC', .LPUNC, 1, SOGWC.1], TPUNC); 
: 938 03 8 LPUNC = UPLIT BYTE (ZASCIC '"); 
: 939 9 ND; 
: 940 0930 2 FLAGS[B_PENDING_SPACESJ = 1; 
: 941 0931 1 END; 
006AD -BLKB 3 
57 47 4F 53 00680 P.ABN: ASCII \SOGW\ ; 
44 45 57 5 00684 P.ABO: .ASCII \RWED\ : 
54 4F 52 50 2F OD 00688 P.ABP: .ASCII <13>\/PROTECTION=(\ : 
41 21 43 41 21 OD 906¢6 P.ABQ: .ASCII <13>\!AC!AD: !ADIAC\ : 
41 21 43 41 21 09 00604 P.ABR: .ASCII <9>\!ACIADIAC\ : 
00 QO6DE P.ABS: .ASCII <0> 3 
SOGW= P.ABN 
RWED= P. ABO | 
| 
OOFC 00000 FORMAT_PROTECTION: | 
WORD Save R2,R3,R4,R5,R6,R7 : 0865— 
57 D4 OA 00002 MOVAB P R7 : 
5E 08 C2 00006 SUBL2 ‘/~ : 
55 67 9E 00009 MOVAB P ABP. LPUNC ; 0901 | 
52 D4 0000C CLRL 3 0902 | 
04 AE 2c01 BF 3C 90008 1$ MOVZWL #11265, TPUNC : 0904 | 
03 52 dj 0014 CMPL : 0905 
06 2 00017 BNEQ : 
04 AE 2901 F 3c 90019 MOVZWL #10497, TPUNC 3 
56 FB A742 ; OO1F 2$: MOVAB soutly, | R6 + 0923, 
52 02 78 00024 ASHL > 0906 | 
04 4 EF 00028 PXT2V Res #4, VALUE, RO ; 
OF 50 D1 000 F CMPL = RO, #18 : 
g0 13 99 BEQL 38 : 
7¢ 00 3 CLRO 3 0914 | 
54 3 ci 99 3 3$: ADDLS J &3 ; 0916 | 
814F FC A740 59 0 HOVE Rs yA, Tet) : 0919 | 
5 03 F 43: AOBLEQ as j, 38 > 0914. 
4 AE 3 0048 PUSHAB TPUNC : 0923 | 
4 AF F 0048 PUSHAB T : 
DD 0004 PUSHL TL : 
6 0D SHL RG ; 
1 0D PUSHL @# : 
3 D PUSHL LPUNC : 
OE A? OF 6 PUSHAB P.ABO 3 
0000v CF 7 Ff CALLS #7, FAO : | 
1 1 BRB 6b : 0906. 
06 AE OF 5$: PUSHAB TPUNC : 0926. 
33 DD PUSHL R : 
11) 9) PUSHL @# 3 


ayemaysno SHOW QUEUE conmand eco rs 00:48:05 yaneat 8Ls sedge, Page 


| 
55 po PUSHL  LPUNC : 

10 (A? OOF PUSHAB P.ABR : 

0000v CF 05 FB H CALLS #5, FAO : | 

5 -. & 3 0071 6$ MOVAB P.ABS, LPUNC + 0928 | 

95 2 03 F3 00075 AOBLEQ #3, I. 1 + 0902 | 
0000" CF 01 90 00079 MOVE #1. FLAGS+7 : 0930, 

04 OO07E RET : 0931 


3; Routine Size: 127 bytes, Routine Base: CODE + O6DF 


ODOODDOOOOOOO 


VMN 
ODONOULSWN—O 


SESSEZES 


SHOW QUEUE command -Sep-1 :18: AX-11 Bliss-32 v4.0 
18-Sep-1984 et fe CLIUTL.SRC QUEMANSHO. 5 2;1 
§ } ROUTINE FORMAT SCHEDULE (QUEVE_FLAGS): NOVALUE= 
ges yi” 
i 
9 1 i FUNCTIONS. DESCRIPTION: 
i ! This routine formats the value of the /SCHEDULE qualifier. 
9 8 1 ! INPUT PARAMETERS: 
oe : QUEVE_FLAGS = Queue flags item 
arg 1 ! IMPLICIT INPUTS: 
945 1! NONE 
944 1! 
8 F 1 ! OUTPUT PARAMETERS: 
Bee 1! NONE 
947 1! 
948 1! IMPLICIT OUTPUTS: 
949 1! NONE 
950 1! 
b3e3 1 ! ROUTINE VALUE: 
226 1! NONE 
0955 1! 
B8e¢ 1 ! SIDE EFFECTS: 
955 1! NONE 
9928 1! 
0957 1 !=- 
0958 1 
0959 BEGIN 
0960 
0961 QUEUE _FLAGS: BBLOCK; ! Queue flags item 
B206 LOCAL 
096 UNDONE : BBLOCK(4], ! What's left to do 
4 ¢: LPUNC, 
965 PUNC; 
096 MACRO 
O38 V_SIZE= 0,0,1,0 zi; 
970 UNDONE = 
971 ti NOT "odkue Fr tis ee oveye _J0B_SIZE_SCHED) 
4 THEN UNDONECV_SIZE) =~ 
74 
75 IF UNDONE NEQ 0 
3 | BEGIN 
7 LPUNC = UPLIT BYTE (ZASCIC ‘/SCHEDULE=('); 
7 i WHILE s UNDONE NEQ 0 DO 
981 ? TPUNC = ZASCIC ','; 
ons 
4 IF TESTBITSCCUNDONECV_SIZEJ) 
5 4 THEN 
9 BEGIN 
9 UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 


IF 
FAO. Ce ACNO SIZE!AC’, .LPUNC, TPUNC); 


Page 43) 


SHOW QUEUE command 15-Sep-1964 99: i # 93 AX-11 Ot iego3e Maso a8e:1 Page 


14-Sep-1 CLIUTL.SRC MANSHO.B 
1 END; 
; 1 
; § beyac = UPLIT BYTE (ZASCIC '"); 
: 5 ¢ poe -PENDING_SPACES] = 1; 
1 


° 45 4C 55 44 45 48 43 53 2F 75€ P.ABT: .ASCII <11>\/SCHEDULE=(\ ; 
ay ra <3 SA 3 53 4F 4E 23 41 $f o¢ 6 76A P.ABU: .ASCII €12>\ 1 ACNOSIZE!AC\ : 
0777 P.ABV: .ASCII <0> 


ere 


wr 


000C 00000 FORMAT_SCHEDULE: 


-WORD Save R2,R3 3; 0932. 
SE 04 C2 0000 SUBL2 #4, SP : 
3 D4 0000 CLRL  —_— UNDONE + 0970 | 
03 0S A . 007 BBS #5, QUEUE _FLAGS+1, 1$ : 0971 
5 1 00C BISB2 #1, UNDONE F 0972 
3 05 OO000F 18: TSTL ‘UNDONE : 097 
52 bo AE 98 BOON Movie -PABT, LPUNC = oo7s | 
e : | 
53 05 0017 2%: TSTL DONE ; o44 F 
4 | 0019 BEQL $ ; 
$f 2c01 «BF 0018 MOVZWL #11265, TPUNC : 0981 
15 9 ES 000 BBCC #0, UNDONE, 4 3 0984 
D5 00024 TSTL DONE + 0987 
5 12 000 6 BNEO $ F 
6E 2901 BF 3C 000 MOVZWL #10497, TPUNC : 
4004 F ge 0020 3$: PUSHR #*M<R2,SP> ; 0988 | 
BE AF 9F 00031 PUSHAB P.ABU : 
0000v CF 03 FB 000 CALLS #%, FAO F 
52 (3 OF 1 0039 4$ MOV P.ABV, LPUNC : 0992 | 
0000" cF BT 90 0008 $$: ROVE AT, FLAGS+? : 0994 
04 ire és: RET : 0996 


3; Routine Size: 69 bytes, Routine Base: CODE + 0778 


3 
SHOW QUEUE command Ve-$ep-1986 $o:0B:48 Eek Ture SReSaugMansno. 682; 1 Page 435 


: ! ’ ROUTINE FORMAT_SEPARATE (QUEUE _FLAGS,JOB_RESET_MODULES_LENGTH,JOB_RESET_MODULES): NOVALUE= 
: 1 1 tee 

3 1 1! 

: 1 1 ' FUNCTIONAL DESCRIPTION: 

: ; : : This routine formats the value of the /SEPARATE qualifier. 
:1 1 1 | INPUT PARAMETERS: 

3 1 1! QUEUE _FLAGS = Queue flags item 

3 1 1006 1! JOB_R SET_RODULES LENGTH - Descriptor for job reset modules item 
; : 10¢ JOB“RESETMODULES - 

21 1009 1! IMPLICIT INPUTS: 

- 19) 7 | re 

8 ’ 4 

:1 1018 1 | OUTPUT PARAMETERS: 

: LS | ete 

e ‘ : 

> 1015 1! IMPLICIT OUTPUTS: 

‘ SE 6 tite 

24 1018 1 ! ROUTINE VALUE: 

; ' 1019 ; NONE 

:1 1021 1 | SIDE EFFECTS: 

:1 10 : 1 NONE 

: 1 1023 1 

: 1385 | fo 

: 1057 Bae” 

31 10 4 QUEUE_FLAGS: § BBLOCK; ! Queue flags item 
: 1 10 LOCAL 

3 1 1030 UNDONE : BBLOCK(4], ! What's left to do 
i] iy to 

: 1 1038 MACRO ’ 

: 1 1034 V_BURST= 9.1.0 %, 

3 7 1035 V_FLAG= olole i, 

: 1 10 VIRESET= 0.4.1.0 2 

: 103 V~TRAILER= 1301,0 2%; 

: 1S woo 

Py =U; 

: 1 1949 IF .QUEUE FLAGSCQUISV QUEUE JOB_BURST) 

: 1 1048 THEN v BURST = TRUE: 

: 1 104 IF .QUEUE FLAGSCQOI$V_QUEUE JOB. FLAG) 

: 1 1064 H ONECV_ FLAG) = TRUE; 

:1 1045 2 IF .JOB RESET MODOLES LENGTH nEQ 0 

:1 1046 THER UNDORELV RESET = TRUE; 

: 1 1 IF .QUEVE FLAGSCQDI$SV QUEVE _J08 TRAILER] 

; 1960 1068 THEN ONDONECV_TRATLER) = TROE; 

21 105 

; 1068 igs If {UNDONE NEQ 0 

> 1065 1988 BEGIN 


gen pg eset Mibies §— LekTUn SRE Sauemansno.692;1 Page iS 


3 1 1 ¢ LPUNC = UPLIT BYTE CeAstse * /SEPARATE=("); 
: : 1 WHILE = % NEQ 0 D 
3 138 1 § 4 TPUNC = ZASCIC ','; 
; 1070 1 4 
3; 1071 1059 4 
3 1 Lf 1060 4 IF TESTBITSC(UNDONECV_BURST)) 
: 107 1061 4 THEN 
: 1074 1 ¢ heer 
3; 1075 106 IF .UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 
3 1978 1064 FAO_(*!ACBURST!AC’, .LPUNC, TPUNC); 
3: 107 1965 END™ 
: 1078 10 6 
3; 1079 106 
: 1080 1068 4 ELSE IF TESTBITSC(UNDONECV_FLAG)) 
3: 1081 1069 4 THEN 
3 1086 1070 
3; 108 1071 IF .UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 
3; 1084 1976 FAO COO ACELAGTAC® | ~LPUNC, TPUNC); 
3; 1085 107 END™ 
3 1988 1074 2 
: 108 1075 
3; 1088 1278 4 ELSE IF TESTBITSC(UNDONECV_RESET]) 
: 1089 1077 4 THEN 
: 1090 \o78 H IN 
3; 1091 107 IF UNDONE EQL 0 THEN TPUNC = ZASCIC ')'; 
3 108 P 1080 2 FAO_(" !ACRESET=(!AF)!AC', 
3; 109 P 1081 ~LPUN 
: 1094 P 1Oe6 ; JOB RESET_MODULES_LENGTH, - JOB_RESET_MODULES, 
3 1095 108 TPUNT) ; 
3: 1096 1084 END 
: 1097 1085 
: 1098 1988 
: 1099 1087 4 ELSE IF TESTBITSC(UNDONECV_TRAILER]) 
; 1100 1088 4 THEN 
: 1101 1089 5 
3 1196 44 H IF DONE EQL 0 THEN TPUNC = ZASCIC °)°; 
3; 110 1091 FAO. POO ACTRAILER! AC*, .LPUNC, TPUNC); 
3: 11046 1092 4 END; 
: 1105 1093 4 
3 1106 4 4 ; 
: 1107 1095 4 LPUNC = UPLIT BYTE (ZASCIC °"); 
: 1108 10 END; 
: 1109 199 FLAGSCB_PENDING_SPACES]) = 1; 
3 7110 1098 END; 
3 7111 1099 END; 
28 30 45 #54 41 #52 41 #50 45 53 2F B OO7BD P.ABW: .ASCII <11>\/SEPARATE=(\ 3 
43 41 21 4 23 52 55 42 43 41 1 B 7C9 P.ABX: .ASCII <11>\!ACBURST!AC\ 3 
43 41 1 47 4 éf 46 43 41 1 A 705 P.ABY: .ASCII <10>\!ACFLAG!AC\ 3 
29 46 41 21 28 3D 54 45 53 45 S52 & 4} ‘1 ! 3 P.ABZ: .ASCII <1 SN TACRESET =< DAF) !AC\ : 
41 21 D nS P.ACA: ASCII 3 
0 P.ACB: ASCII : 


<13>\ !ACTRAILER!AC\ 
<0> 


SHOW QUEUE command 


03 
03 


03 


12 


12 


1B 


15 


- w 
ad 


NVMOOOCO FSF OOOCOMO Pp 
NMFS DVIDS LSWOVS WN Lenm 


WW00 — COLWWWNOD 
par per Serer 
CO VSSRUSmaonwowe 


wm 


tad 
i 


SoOoooooooocooo 
COOCCOCOOCOCoOOCoOoooO 
wr 
MnAomMmun- 
o<o 
oO 


~ 
Pr 


Cooooocoocecoo 
OoOooooocococoo 
PAEAQRAMNANTE PEE 
SUTIN ON "OOWe 
oo 
wr 


RANT 


OO OT OTW 9M 3 O99 NOW OM | OW Oo M$ OW O MW 9 OS Oma 
FOND FD ON DW FI ONMNNS MMDONMUMIN MDONMUMOWUIM 


SOGOSOCOGCOGOOOSOSOOOOOSOOOOOOOSOSOOOOOOOOOoOO 


=O FW BMAMIWOUESWOM 
SoooooooooooSo 
SAAS GOMAS RL AAS OR MOD 


SoOooooooooooooooooo 


SOP OP OADOMOSOPFPUIPMNDOMOW 


9be 18:08:03 EeCTUT PSRESUEMANSno-882:1 


001C 00000 FORMAT_SEPARATE: 
.WOR 


Save R2,R3,R4 

ABW, R4 
wi, sb 
UNDONE 
#3, QUEVE_FLAGS+1, 1$ 
#1, UNDON 
#4, QUEUE FLAGS+1, 2$ 
#2, UNDON 
O6_RESET MODULES_LENGTH 
#4, UNDONE 
#6, QUEUE _FLAGS+1, 4$ 
#8, UNDONE 

bON 
P.ABW, LPUNC 

DONE 


aS. 
o 


#11265, TPUNC 
#0, UNDONE, 7$ 
BONE 


#10497, TPUNC 
#°M<R3,SP> 
13$ 
#1, UNDONE, 9$ 
BONE 
#10497, TPUNC 
#°M<R3,SP> 
13$ 
#2, UNDONE, 11$ 
UNDONE 
10s 
#10497, TPUNC 
JOB_RESET_MODULES_LENGTH, -(SP) 
LPURC 
P.ABZ 
#5, FAO 
#3, UNDONE, 14$ 
NOONE 
#10497, TPUNC 
#°M<R3.SP> 
CA 
#3, FAO 
P.ACB, LPUNC 
#1, FLAGS+7 


ae ne fe a a nk ee 
GEA AR AREE REREEE 
Se a te ne ce 


z 


Sm 
Ss 
—o 


Pee Se Ge Se Se Ge Ge Se Se Se Se Se Se Ge Ge Se Fe Fe Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


nN 3 
QUEMANSHO SHOW QUEUE command 16-Sep-1984 00:18:0 AX-11 Bliss-32 V4.0-74 Page 39 
rit 127808773 4 99: 48:92 LO TUTE SRETOUE MANS GO. 68251 9 (18) | 
$ 11)? 1} } ROUTINE FORMAT_WORKING_SET(NAME ,VALUE): NOVALUE= 
3 7115 11 1 tee 
i 1118 1108 1 i | 
3 111 11046 1 ! FUNCTIONAL DESCRIPTION: 
3 HY 119¢ ; This routine formats a working set parameter. | 
3; 1120 11 $ 1 ! INPUT PARAMETERS: | 
3; 1121 1198 1! NAME - Name of the working set parameter. 
3 11 ¢ 1109 1! VALUE - Value of the parameter. 
s 31 1110 1! 
3 11246 1111 1)! IMPLICIT INPUTS: 
3 1125 1418 1! NONE 
> 1126 113 1: | 
3: 1127 1114 1 =! OUTPUT PARAMETERS: 
; 1128 1118 1! NONE 
3 1129 RY | 1! 
3; 1130 111 1 ! IMPLICIT OUTPUTS: 
3 1131 1118 +1! NONE 
7 1136 1119 1! 
3 113 1120 1 ! ROUTINE VALUE: 
3: 1134 115) 1! NONE 
3; 1135 11 ¢ 1! 
3 1136 11s 1 ! SIDE EFFECTS: 
3 11737 1124 1! NONE 
3 1138 1125 1! 
3; 1139 1126 1 !-- 
3 1140 1127 1 
3 1141 1128 BEGIN 
3 110§ 1165 IF .VALUE EQL 0 
3 114 1130 THEN FAO_(°/!AC=NONE', .NAME) 
3 1144 1131 cbse FAO_(*/!AC=!UL", NAME, .VALUE); 
3 1145 1132 FLAGSCB_PENDING_SPACES) = i; 
3: 1146 113 1 END; 
45 4€ 4F 4E 3D 43 41 21 2F O09 OOBAC P.ACC: .ASCII <9>\/!AC=NONE\ 3 
4C 55 21 3D 43 41 21 2F O08 O0O8B6 P.ACD: .ASCII <8>\/!AC=!UL\ 3 
0000 00000 FORMAT_WORKING_SET: 
WORD Save nothing : 1198 
08 AC 83 0008 TSTL VALUE : 1129 
0D 12 0000 NEQ : 
046 AC OD eH PUSHL NAME : 1130 
EO AF 9F A PUSHAB P.ACC 3 
0000v CF 02 re 0 CALLS a2. FAO Bits 
a 1 BRB 3 | 
7E 04 AC 7D 14 1$: MOVQ NAME, -(SP) : 1131 
goooy cr «AP AIUIE EASE Cb, pe 
000° CF 1 09 p 28: MOVB #1, FLAGS+7 3 9 
be g RET 3 1138 


; Routine Size: 38 bytes, Routine Base: CODE + O8BF | 


oe 


H 218: AX-11 Bliss-32 V4.0-74 Page 40 
yoneOuee ophcosps ampere :08: eet iute sre QUEMANSHO.852;1 . (14) 


4 
1$oSeoct984 90:18:05 YAK tt Bh inge32 v4-08742 


a 
an] 
w 
ro 
> 
@ 
~ 
® - 
7) ~~ 
Vv ws 
7 < 
a oO es 
“" -a ee 
- wa ~ 
i wo w 
a a>s3 . x 
~ ~N _ Tf ee 7 
v Wuww cw ~ z 
o ee ee oa a 
ee ek ee a a wo 
eo verre OC < ate 
= o<<aa vw mw 
Vv ati WwW e a Y= 
@oo0o w Pe on | ad “<= 
wo a>ocor>-.lUC<t lm CU —_ az 
a = w Pe ) ws fierce 
& —- -— 4 eow 
ai rd oOo z ox VUE 
w - ze Te) <-<« 
p— | aw w 3S oe avz 
i wo oe awa. << <«=— 3 
<a = ee aw zaw 
> a _ 3<«<« > Owe 
S = o aza i 
za oe z ee . ws w& == Zzwnum 
use a w “w=rw Ve o<= 
ee n any. 4 ws Ww ava cn al 4 4 
” ~ - Qu i 2 Sao <za> — iw 
(=) o wu 2 * wetw we <=z=e 
_ ~ os “ ~~ WwM "nw~ VouvU 
- =a « se no www -— oOo « 
” zu =z a wi - 2 & Am => 
_ o-- tee 4 = — w i — J ed 
= “0 Vou ~ <a New *eDaA+s £5Dt 
w — oat oy mw s Qa>aQA-- wo[Oo seOW 
- a©® ° he ba coed “So Oo 
Vv -—cCc ” oo Nn ” uZ a nnun nue 
< en- ww ° a ” te ao oor - nnhun 
a ve = ” w om caer [- 4 ma ees Maree 
? "aS ww - - > oe [vey rey TY) uw wa mm Oo°oOoo oOo 
= wo -  ) w a. w oo ee = - | = oooo ees es ses 
wv one w a = -_— | ” eh ee «wu ca eer s OOrm oor 
: = 2 > 2 - “4a4aa45-4 on OONN K—R—MM Hem 
F_4 IW woeew 2@w Ow daw ww pel. 4. 4. a «|: 4 sv eo ferme * es 8 ees 
- ce <a Zz =>2 w2Zz =333<Ss ”“ N ese 2s O0O020° o00 
ao] = = <o e9 -o o ~S ow > 4 =) en - Oooo sess eee 
c ” - az - -—2 wet uw eee le -—-ax i esses WTFOO +700 
oo — vw Ca =) za w ew S@ CONVO eS@wTreK Nw CUCU 
w co t os = o— 4 > ee eS ee ee 
=z Y > = a _ - w ww eee oe 
Be. 8 8k & & 8 8, Be Sz = 3993 3999 335 
— _— 
2 >-~ os _ o fon) « 2) ov << cond fer £erz zz 
w + t oO wat eee Be ee ee 
> Om mm mem mem mim tm tm mime meme em ememems *o ww Tm eg Ot a gg eg Og ey Og OG 
w 
3 LOL OK 
TF ONOP-DROK— CUM TFMNOR. OKO CUM TNOR- DOOR TUMTN re a tN Ah et Toetanabeothes 
= LLL LL LLL FEM 
” LLL LL CO 


DROK— NIM TMNOR- DHOOM TIMOR. OPO CMT NOR. HNUMTNOP DOOR UM TN @ =u 
TFINAMMMANANNNOOOOO0O DOORAAAARARAARSHHOHOSHOOFOCCESSOSSSOOSS 
SE NII 
be el ee el ee ee el el el el el ee ek ln ed eh el ed eh el eh ee eh ek ok, ed ek aed ek ak meek anh ee ak aah ak nk oak, ak ah ek eck ak ah ak ak ak kk kk 


a ye 


San —— -y 


dD 4 
SHOW QUEUE command 16-Sep-1984 00:18: AX-11 Bliss-32 V4.0-74 Page 42) 
aH A eC cot he ha Pt oe 9° 48) 
: } 5 1191 ITMLSTC32,0,32,0] = CHARACTERISTIC_NAME_LENGTH; 
: 1 1393 ITMLST 3 -0.16,0) = TALLOCATION( CHARACTERISTIC NUMBER) ; 
21 41 ITMLST(38,0,16,0] = QUIS_CHARACTERISTIC NUMBER: 
: 1 1195 ITMLSTL4O, 3 ,0J = CHARACTERISTIC NUMBER: | 
: 1 10 1196 ITMLST(44,0,32,0] = 0; 
: 121 11 
: 1 3 1198 ITMLST(48,0,32,0) = 0; 
’ 121 119 
: 1214 1200 
3 : \? : 01 Loop to get all characteristics. 
: 1 i$ 1 8g WHILE TRUE DO 
: 1218 1204 BEGIN 
: 1219 P 1205 STATUS = $GETQUIW( 
3 1220 P 1 06 FUNC=QUI$_DISPLAY_CHARACTERISTIC, 
+ 1221 P 120 ITMLST=ITALST, 
: 1222 1208 10SB=10SB); 
3 1223 1209 IF .STATUS THEN STATUS = .10SB; 
2 33 1514 | 
: 1226 1 iF IF TESTBITCS(CHARACTERISTIC_PRINTED) | 
21 37 121 THEN | 
3 1228 1214 4 BEGIN 
: 1289 13158 4 IF NOT .STATUS | 
: 1230 1 16 4 THEN 
: 1231 121 BEGIN 
: 1 Q 1218 SIGNAL(.STATUS); | 
:1 1219 EXITLOOP; 
31 34 1220 4 : 
: 1235 1221 4 FAOL_(*Characteristic name Number"); 
: 1236 12 ¢ 4 FAOL("eeeeeeeneneeeeeenne wenn : 
: 1237 1 4 END 
: 1 1224 3 ELSE 
: 1239 1225 4 BEGIN 
+ 1240 1226 4 IF NOT .STATUS THEN EXITLOOP; 
+ 1261 1227 END: 
3 1 ¢§ 1228 
Py 7 4 1 $3 | 
: 1264 P 1230 FAOL_(*!31AF ‘6uL* 
> 1245 P 1231 CHARACTERISTIC _NAME LENGTH, CHARACTERISTIC_NAME, | 
> 124 1 Q . CHARACTERISTIC_NUMBER) ; | 
3: 124 1 D; | 
: 126 1234 
3 126 1235 
: 1250 1 36 FLAGSCV_TRUNCATE) = FALSE; 
+ 1251 1237 1 END; | 
O8E5S -BLKB | 
00090092 O868 P.ACE: LONG : 
$3 69 74 73 69 7 $3 74 61 % 61 68 4 OBEC P.ACF: .ASCII \+#Characteristic name Nu\ ; 
ee ee ee ee ge 
D 914 eASCII \mber\ 3 
20 2D 2D 20 2D 20 2D 2D 2D 2D 2D 2B 00918 P.ACG: .ASCI] \+------------------- -\ : | 


4 
ayeRawswo SHOW QUEUE connand 1E-Se0-1984 0:18:05 YAN=I1 Blisg=32 v4. 06742 


"PPP MERRRRRE RE 


55 36 21 20 20 20 20 20 20 46 41 


II \ 
II] <15>\!31AF '6UL\ 


003C 00000 SHOW_CHARACTERISTICS: 
«WORD Save Bg ASMA RS 
MO EOL, R 


55 0000v CF 9E 90002 VAB ‘ 
54 0000v CF 9E 999 MOVAB FAG RG 
5 9C AE 4 00 MOVAB -106(SP), SP 
0000" CF o4 8 1 BISB2 #4, FLAGS 
3 D4 0001 CLRL  CHARACTERISTIC_PRINTED 
39 AE 0000" CF 80 0001 MOVW 8 =P. ‘ ST 
2 AE 4D 98 001 MOVZBW #77, ITMLST+ 
34 AE 0099" CF 00 000 MOVL P2_DESC+4, ITMLST+4 
AE 04 000 CLRL TAL 148 
3¢ = AE 0040004 8F DO 000 ; MOVL #4980740, ITMLST+12 
40. AE FF5D CF 9E 000 MOVAB P.ACE LiMLsT+16 
44 AE DG 90039 CLRL TM +20 
48 AE OOOSOO1F 8F DO 0003C MOVL #327711, ITMLST+24 
4C AE 10 AE 9E 00044 MOVAB  CHARACTERISTIC_NAME, ITMLST+28 
50 AE OF AE 9E 00049 MOVAB CHARACTERISTIC-NAME.LENGTH, ITMLST+32 
54 AE 00060004 8F DO 0004E MOVL #393220, ITMLST+36 
58 OA 08 AE 9E 00056 MOVAB  CHARACTERISTIC_NUMBER, ITMLST+40 
C AE 7C 00058 CLRQ  —s I TML ST +44 
7E 7C OO05SE 1$ CLRQ = =( SP) 
08 AE OF 90060 PUSHAB 10SB 
3C = AE OOF 0006 PUSHAB ITMLST 
7E 02 7D 00066 mova ss #2, ~=(SP) 
7E D4 00069 R -(§P) 
000000006 00 07 FB 00068 CALLS #7, SYSSGETQUIW 
32 50 00 0007 MOVL RO. STATUS 
0 52 €9 0007 BL STATUS, 2$ 
52 6 DO 00078 MOVL 10SB, STATUS 
50 52 D2 00078 2$: MCOML STATUS, RO 
24 53 00 €2 0007E BBSS #0, CHARACTERISTIC_PRINTED, 4$ 
0B 50 E 0082 LBC 0 
52 DD 0008 PUSHL STATUS 
000000006 00 01 FB 90087 CALLS #1, LIBSSIGNAL 
4 OO8E BRB 6$ 
FFOG CF OF 00 3$: PUSHAB P.ACF 
64 1 FB 00094 CALLS #i, FAO 
65 0 FB 00097 CALLS #0 
FF26 CF OF 009A PUSHAB P.A 
64 1 FB 0009E CALLS #1, FAO 
65 9 re OOA1 CALLS #0. EOL 
Q 11 O00A4 BRB 5§ 
16 0 €8 OAG 4$ BLBS =_-«RO 
08 AE DD O00A9 5$ PUSHL CHARACTERISTIC_NUMBER 
14 AE 9F OOOAC PUSHAB CHARACTERISTIC—NAME 
7E 18 AE 3C OOOAF MOVZWL CHARACTERISTIC-NAME_LENGTH, ~(SP) 
FF3 F OF 83 PUSHAB P.ACH 
64 4 FB 000B CALLS #4, FAO 
65 0 FB OOOBA CALLS #0. EOL 
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MANSHO = SHOW ommand 1§ 6-Sep X11 BLisg-32 V4.0 Page 44 
vos-008 nena 1erSep-1986 $2:0B:4s | EeCTuTLesmeSauEmansmoces2;1 29° 485 
9F 11 00080 ere 1$ : 1203 
0000" CF 04 BA OO0BF 6$: BICB2 #4, FLAGS i 1236 
04 000¢4 RET ; 1237 


; Routine Size: 197 bytes, Routine Base: CODE + 0954 


4 
1$-sep-1964 00:28:05 YANGt BL ing=32 4.05763, 


; ' ROUTINE SHOW_FORMS: NOVALUE= 

: is | 

:1 1 ; 1 | FUNCTIONAL DESCRIPTION: 

3 ; ; rh : : This routine displays the defined forms. 

:1 1245 1 | INPUT PARAMETERS: 

‘ i 

31 1248 1 | IMPLICIT INPUTS: 

; } 4 ; NONE 

: 1 1251 1 | OUTPUT PARAMETERS: 

: 4 1 1! NONE 

21 1 4 1: 

:1 1354 1 i IMPLICIT OUTPUTS: 

; i 35 ; NONE 

:1 1 3 1! ROUTINE VALUE: 

: VB | eee 

:1 1250 1 | SIDE EFFECTS: 

:1 6 1201 1! NONE 

31 seg 1 i 

ee 

: 1380 1506 PocAt 

; 1382 1569 ITMLST: BBLOCKL184] 

+ 128 1268 FORM_DESCRIPTION: VOLATILE VECTORC255,BYTE), 
> 1284 1269 FORM~DESCRIPTION_ LENGTH: VOLATILE WORD, 

> 1285 1270 FORM~FLAGS: VOLATILE BBLOCK(4), 

> 1286 1271 FORM-LENGTH: VOLATILE, 

+ 1287 1 i FORM_MARGIN_BOTTOM VOLATILE, 

> 1288 127 FORM_MARGIN-LEFT: VOLATILE, 

+ 1289 127% FORM_MARGIN-RIGHT: VOLATILE, 

> 1290 1275 FORM~ MARGIN-TOP: VOLATILE, 

> 1291 1 ds FORMNAME : VOLATILE VECTORC31,BYTEJ, 
21 3 127 FORM_NAME_LENGTH: VOLATILE WORD, 

:1 1278 FORM_NUMBER : OLATILE, 

> 129% 1279 FORM_SETUP_MODULES: VOLATILE VECTORC255,BYTE), 
> 1295 1280 FORM SETUP-MODULES_LENGTH: VOLATILE WORD 

: 1296 1 81 FORM~ STOCK? VOLATILE VECTORC31, BYTE), 
> 129 1 é FORM~STOCK_LENGTH: VOLATILE WORD, 

: 1298 128 FORM- WIDTH: VOLATILE, 

+ 1299 1284 PAGE SETUP_MODULES: VOLATILE VECTORC255, BYTE), 
: 1 1285 PAGE ~SETUPMODULES_LENGTH: VOLATILE WORD, 

: 1301 1 6 STATUS, 

:1 é 1 10SB: VECTORC2), 

: 1 1 : FORM_PRINTED; 

: 1308 } 

31 1291 2 FORM_PRINTED = FALSE; 

| 138 

: 4 1294 ! Initialize the item List. 
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Page rs 
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atti tee tia rion 

ry seoet98e 00:18:05 

QUEVE command 


: 


14 "1 Siar bai FORA ~NAME, ); 
-{ :3 NAME TH, RIPTION 
; 14 P 141 oan oe le 
3 16 1618 FLAGSLV_ 
; 14 
: 4) LJ 
3 36 1217 IF: FLAGSLV. FUL 
3 14 j= 
: 16 1419 "sree 8 ~bENDING SPACES) “¢ = Se 
s ies 1038) FLAGSCB_PEND ome 
3 14 lage 6 LUL® 5 gEORMALENGTHD ; 
4 4 THE! UL ="1; 
; 16 16 $ FLAGSLBCPENDING- SPACES 
: 1440 1426 4 
; tee 12 é POMnF ORM. RARGIN_BOTTON, 
2 146 1409 6 -FORMRARGIN LEFT « 
aes 1681 FORM-RARGIN-TOP) 
i 1466 1238 ars TH NEQ 0 
+ 1668 14 é ; {PAGE ~SETUP | LES); 
1084 1637 § "pein {5 /PAGE SET “RODULES LENG 
: 14 16 PAC 
; 13 P i640 ; ELAGStB_ “PENDINGZS 
: 1456 1666 2 MODULES LENGTH NE 
art 1644 6 OT iil TUP_MODULES) ; 
1638 166g “a saint LENGTH, FORM_SETUP_ 
3 1461 ice? FAO. . ites SPACES] = 1; 
: 1468 P 1968 FLAGS(B_P 
3 1464 1450 H _SHEET_FEED) 
ig ' $e cream puns 
: 14 Meee 2 THEN OEGIN ep ies) © 1: 
* 1469 1455 4 (*/SHEET paces) 
; 1670 1689 FLAGS(B. PENDING. § 
; END; 
4 1679 1638 H 
* 147 & K); 
iene 1660 ‘ WO °(STOCESIAF earn FRR STOC 
1475 1461 F STOCK EEMeru F 
; 1476 P 146 4 agian *PEND 
; 1478 1664 ‘" 
2 147 1465 4 
1080 


#8 
: 
: 
é 


es see Heiser QUDE:0E YG SMesadeaddsta"sbe. Peer ag) 


IF ;FORM_FLAGSCQUISV_FORM_ TRUNCATE 


BEGIN | 
FAO_(*/TRUNCAT 
FLAGSCB_ PENDING. "Sbaces3 = 1; 
END; 

| 


uw 


FAO_("/WIDTH=!UL' ORM 20TH); 
FLAGSCB_PENDING_ sbatt 


IF _.FORM_FLAGSCQUISV_FORM_WRAP) 
THEN cin 
FAO_("/WRAP"); 
FLAGSCB_PENDING_SPACES = 1; 


FLAGS ; PENDING eo ES] = 0; 
4 at b) steFT MARGIN] = 0; 


me a ae a a bt sd A a ss 
NINN 


RIS SSLEARAN SS SSOP UIN— SO we 


ARIE EE EE PNM BEEP EEE PENNE EE 


cEoL. | 
END; | 
END; 
| 
00A19 -BLKB | 
0000 2 OOAI¢ P.ACI: _LONG : | 
0 $8 34 5 6D 61 3 6D 7 F 4 QOA20 P.ACJ: .ASCII \9Form name Nu\ ; 
0 0 0 20 9 : i : 0 oh F ; 
70 69 72 63 73 65 44 8 0 o ¢ 5 - ASCII \mber Description\ ; | 
9 20 20 20 2p 20 20 30 2D 2p d 39 OAS, P.ACK: .ASCII \9-=---=== > oA; | 
SeCPeererns : 
20 20 20 20 2D 2D 2d 20 D 2D p D Ag CASEI] \eree ennceneneee \ ; | 
20 4C 55 39 21 20 20 20 46 41 31 83 ; A P.ACL: .ASCI] <18>\!31AF '9UL = !AF\ : | 
4C 55 1 3 48 se « i 4C OF fs vy, P.ACM: ASCII <11>\/LENGTH=!UL\ : | 
28 3 50 55 54 45 53 SF 45 47 41 6 ; i AB P.ACN: ASCII <17>\/PAGE_SETUP=(!AF)\ ; 
29 46 41 21 28 3 50 55 54 45 F OC QOACS P.ACO: .ASCII <12>\/SETUP=(!AF)\ : | 
44 45 46 4 45 45 4 F OB QOAD2 P.ACP: ASCII <11>\/SHEET_FEED\ ; 
46 41 21 4B 43 «(4F 24 F OA OOADE P.ACQ: ASCII <10>\/STOCKE!AF\ : 
45 54 41 “3 4E 55 2 4 oF 09 hey P.ACR: ASCII <9>\/TRUNCATE\ F | 
4c 55 21 3D 4 34 44 49 57 OF OA OOAF3 P.ACS: ASCII <10>\/WIDTH=!UL\ ; 
0 41 52 57 2F OS OOAFE P.ACT: ASCII <5>\/WRAP\ F 


OOFC 00000 SHOW_FORMS: 


era ee om IERSCIR MOUERE METRE 


-WORD save RG. oR3,R4,R5,R6,R7 
a!) 


7 —000v ct 3 VAB : 
‘ v CF MOVAB ty R6 F | 
FF CF ; MOVAB P.ACI, RS : 
4 0000" CF MOVAB H088 7, Rb : | 
E FBCC cf 16 MOVAB -1076(SP), SP : | 
D 1B CLRL FORM PRINTED ; 1291) 
FF48 = CD 008D cs 0 00010 vu DESC ITMLST + 1296 | 
FFA CD 4D oF 4 MOVZBW 4 ITALST+ + 1297 | 
FFGC OCD 0091 C4 D A MOVL Pe BESC+4, ITMLST+4 31 
FF50 «CD OG l CLRL BL si+8 31 
FESé CD 004C0004 BF po MOVL #496074 1TMLST +12 :1 
tine a tg imatsion . ef 
me pome BBB | Bi Hen Tnstit : 
FF68 = CD FEOA CD 9F 0037 MOVAB FORM“NAME_LENGTH, qjimstes2 :1 
aa CD 00200 F 0 5 MOVL #2097156, “I TMLST+3 : 1311 
FF CD FEOS CD 9€ MOVAB NUMBER, ITMLST+40 : 1313 
FF74 CD D4 DOG CLRL HoyStis, + 1314 
FEE ED eee DOE OO MOVAB FORM DESCRIPTION, “TTMLST#S2 : 1318 
80 AD FEGG cD ° tt ROVAB fe cDESERIPTION-LENGTH, ITMLST+56 ; 1319 
03 Fo : 01 9 98 BBS #1, FLAGS, 1$ : 1326 
84 AD 00190004 MT 0 00093 1$: MOVL #1638404 ITMLST+60 + 1327 
88 FE4O E 00098 MOVAB FORM FLAGS, ITMLST+64 ; 1 4 
€ AD D4 O00A1 CLRL OI Tm T+ : 1330 
90 AD 001A0004 8F DO O00A4 MOVL § #1703940, ITMLST+72 : 1332 
94 AD FESC CD 9E OO0A MOVAB FOR MALENGTH, ITMLST+76 : 13 
98 AD 04 0008 CLRL ae 3: 1335 
9¢ AD 00180004 8F DO 0008 MOVL n% 476, ITMLST+84 : 1337 
AO AD FE38 CD 9E 000B MOVAB = FORM MARGIN BOTTOM, ITMLST+88 : 1339 
AG «6 AD OG 0 C CLRL sd . +9 :1 9 
ABS AD 00100004 8F 00 000C6 MOVE #183 O12 ITMLST+96 :1 
AC AD FE34 CD 9E OO0CE MOVAB FORM_MARGIN_LEFT, ITMLST+100 + 1344 
0 AD D4 00004 CLRL LIAS > 1345 
B4 AD 00100004 8F D0 00007 MOVL #1900548 ITM. sts 108 : 1347 
B8 AD FE 0 cD 3E tte ROVAB FORA MARGIN RIGHT, ITMLST+112 ; 9 
co AD p 00160096 8F 00 oes MOVL biose0ns 11m st+120 :1 $ 
C4 Ee cD 9 0 F ROVAB FORM_MARGIN_TOP, ITMLST+124 ; 4 
gone FB Ee Be, HL RET nr 1g 
D4 «AD O16 E : 107 MOVAB ie? a Tinvats — ITMLST#140 :1 
‘+ Soca 5} le 83 Ad RS 2 
E M12 E f 118 MOVAB f ohn =ETBCK Eng ENGIN, caf imest+152 :1 
E4 AD 0023 00 F p 1 MOVL 293 T :1 
a a ee : 
TO eg 2 St : 
F8 AD ef AE . 135 MOVAB PAGE™ “$e * “MODULES LENGTH, ITMLST+176 :1 
FC «6OAD «(D4 00144 CLRL —sATMLST+ :1 


m 4 
MANSHO SHOW QUEUE command 16-Sep-1984 00:18:0 AX-11 Bliss-32 V4.0-74 
Woen008 19-88-1382 90: bBi28 CLIUTL.SRC Guemnsno 682: 
7E 7C 00147 28: CLRQ 0s = ( SP) 
0g AE 9F 00149 PUSHAB I 
FFG D OF 0014 PUSHAB ITMLST 
7E 4 70 001 MOV #4, _=(SP) 
E D4 001 CLRL «(SP 
000000006 FB 001 CALLS #7, SYSSGETQUIW 
9 DO 0015¢ MOVL RO, STAT 
E9 0015F BLBC STATUS 
2 E b 16 MOVL 10SB, $TATUS 
Fo oAG 4 165 3$ BISB2 #4, FLAGS 
29 D2 00169 MCOML STATUS, RO 
21 : 1g BBSS #0, FORM_PRINTED, 5$ 
OA 1 BLBC)—OséRO, & 
52 DD 0017 PUSHL STATUS 
000000006 00 07 FB 0017 CALLS #1, LIBSSIGNAL 
04 O17 ET 
04 AS 99F 0017D 4$ PUSHAB P.ACJ 
66 oi FB 001 CALLS #i, FAO 
67 Q FB 001 CALLS #0. EOL 
3E =AS «(OF 001 PUSHAB P.ACK 
66 01 FB 00189 CALLS #1, FAO 
67 00 FB 0018C CALLS #0. EOL 
04 11 O18F BRB 6$ 
01 50 €9 00191 5$ BLBC ~=E._—«aRRO, 6S 
4 00194 RET 
FEG8 CD 9F 00195 6$ PUSHAB FORM_DESCRIPTION 
7E FE46 «=6CD «3C 00199 MOVZWL FORM"DESCRIPTION_LENGTH, -(SP) 
FEOG CD OD O19 PUSHL FORM“NUMBER 
FEOC CD 9F OO1A PUSHAB FORM“NAME 
7E FEOA cD 3¢ 01A6 MOVZWL FORM-NAME_LENGTH, -(SP) 
78 «AS 9F OO1AB PUSHAB P.ACC 
66 06 FB OO1AE CALLS as, FAO 
67 00 FB 001B1 CALLS #0. EOL 
Fo oAG 04 8A 001B4 BICB2 #4. FLAGS 
BA Foo 01 €1 001B8 BBC #1. FLAGS, 2$ 
FD AG 04 90 001BD MOVB #4. FLAGS+4 
64 04 90 gic MOVB #4. FLAGS+7 
FE3C = CD pd 1C4 PUSHL FORM LENGTH 
0088 ¢5 «OF o1c8 PUSHAB P.ACA 
65 02 FB O01CC CALLS ae, FAO 
64 01 90 OO1CF MOVE #1, FLAGS+7 
FE2C CD OD 00102 PUSHL FORM_MARGIN_TOP 
FESO CD DD 00106 PUSHL FORM“MARGIN-RIGHT 
FE34 CD DD O01DA PUSHL FORM-MARGIN-LEFT 
FE38 cD DD 001D PUSHL FORM”MARGIN BOTTOM 
F8AO CF 4 FB OOIE CALLS #4, FORMAT_MARGINS 
OA AF 8 1E TSTW  PAGE_SETUPMODULES_LENGTH 
1 1EA BEQL =s 7$ 
C AE 9F OOTEC PUSHAB PAGE_SETUP_MODULES 
7E : AE 3C OO1EF MOVZWL PAGE-~SETUP-MODULES_LENGTH, -(SP) 
00 F 1F3 PUSHAB P.ACR 
66 FB OO1F CALLS a3, FAO 
64 1 90 OO1FA MOVE #1. FLAGS#7 
0136 ce ED 7$: ist FORM_SETUP_MODULES_LENGTH 
0138 CE OF 303 PUSHAB FORM_SETUP_MODULES 
7E 13a «(CE «(3 MOVZWL FORMSETUP"MODULES_LENGTH, -(SP) 


WNW MmrNn— 


o Oo NW Vinn—cOWr 
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MANSHU SHOW QUEUE command 16-Sep- :18:0 AX-11 Blis Page 52. 
yOen008 14- 3g) 38 99: a8 9 “aT lg ha Pay eet 832;1 . (16) | 
00A9 ; OF 0 PUSHAB P,ACO : 
66 F CALLS #3, FAO : : 
4 19 1 MOVE #1. FLAGS+7 : 1450| 
A FE4O cp f 16 8$: BLBC FORM FLAGS, 9$ + 1454 | 
0086 F 00218 PUSHAB P ACP + 1457) 
66 1 fe 1F CALLS Wie FAO ; | 
64 1 Ove #1 of kAGS#? ; 14658, 
1146 CE OF $ PUSHAB FORM_STO + 146 
7E M16 CE 3C¢ MOVZWL FORM~ STOCk LENGTH, -(SP) : 
0c F PUSHAB P.ACO : 
66 F CALLS 3, FAO : 
64 19 MOVE #1, FLAG . ; 
OA FE4O CD 1 i BBC #1, FORM_FLAGS, 10$ : 
oocD 36¢5S OOF PUSHAB P.ACR : 
66 1 FB 4 CALLS #1, FAO : 
64 1 90 0024 MOVE #1. FLAGS+7 ; 
o10¢ ce pp 0248 10$ PUSHL FORM WIDTH : 
0007 «¢5——«OF 0024 PUSHAB P.ACS ; 
66 02 EB 025 CALLS #2, FAO : 
64 9 00 5 MOVE #1, FLAGS+7 + 1476 
OA FEGO CD 0¢ a 0256 BBC #2, FORM_FLAGS, 11$ + 1479 
O0E2 CS OF 00 5 PUSHAB P.ACT + 1482 
66 01 fe 026 CALLS , FA ; 
64 01 90 0026 MOVB #1, FLAGS+7 + 1483 
64 94 00 66 11$:  CLRB  FLAGS+7 + 1487 
FD AS 94 0026 CLRB ss FLAGS+4 + 1488 
0000v CF 00 FB 00268 CALLS #0, CEOL + 1489 
FED4 31 00270 BRW + 1383 
04 00273 RET : 1492 


; Routine Size: 628 bytes, Routine Base: CODE + 0B04 
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| mo 
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or 
| nun 
ee | 
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en! | 
KU 
<=w . . 
> 5 . Oe | [an] . . . 
om] a a "ow w Cn] lon am] 
w am] ww & — w w w 
-_ co - -_- > > Ld _ ad 
> ™N > >- @ @ Pd >= Pd 
aw @ - oa @ ° ° @ @ @ 
ov . =) . ew wo . . ese . | 
ee ee a « W- - wv w On o oe 
coco ~ oO ma SY Cc N ~» ~~ rr OS 
Oo ws _— 3s t7 tf us I =) a 8. 
ee oe [oq od ce cc « [4 a [24 ~<a uw 
om oOo: w oo Oo: Os oO- Oo. vO ww 
on -a > -ar-ar-a Fa -a §-§a OrFaod 
voc Vavaevec va vf vec WUe KW 
wv mwoO «4 wOowowod wo wo w wo 
oocO vos @ >aos3a>3 >3 oe >s3 
on oOo © ees . es: * & 
-— Laleeteeleulrelververvelvulrelvelvelvelvurvelvelververrurvelververververvelvelveyvey 
es I I ed a dd dd ed) od od dd od dd Cd I Ld I) LI LI I 
aa SR hg ed ey Be ad ed nd dS teed ed Bt Bd OO 
wee QO i i i 
mm Oded dtd de detect eee ee eee eee ee etcce 
i | Saodt dts I J II I J I I I I I I I I I I I I II I I I 
@oovw DBDOOCCOCCOCOCCOCoCCoOoCoooooooeooooo 
-— Qror>r>>>>>>>>>>>>>>>>>>>>>>>>> 


NAME _LENGTH: 
LENGTH: 
“LENGTH: 


NAME : 


EUE 
EUE 
NAME_LENGTH: 
TARGET: 
TARGET 
NAME_LENGTH: 
STATOS: 


FLAGS: 


“Wwe u ze 
—2Z20Cwww 


RIC 


GENERIC 


o_o? 
2995944 


This routine displays queues. 


INPUT PARAMETERS: 
PROCESSOR_LENGTH: 


NONE 
NONE 
SIDE EFFECTS: 

NONE 

FORM 

GENE 
PROTECTION: 
QUEUE 
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FUNCTIONAL DESCRIPTION: 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


“ 
w 
— 
4 
<= 
> 
oOo 
2 
” 
w 
=) 
w 
> 
So 
2 
=x 
” 
ws 
2 
_ 
= 


MTMNOP-DOO-—tUM 
PAAAASAOOSCO 


A cee ee cel ee ee ce el ee eel ee ee el ee el el el ee ee el cl el ee cel el ce cee ee eh ee ee ee ok ek eek el ol cel oe el ol el cel el ol ol el el ee ee el oe el el ee ed 


SHOW QUEUE command 


te +e OGD tee Se pe Bp Ae A GAR Ptr tate ae 
LVDVLVLULVLVLVLVLVLVLVLVLVULVLVLVLVLVLVLVLVLVLV LVL VLU LV ELV ELV ELV LV LVL LY ELV LV LN LV ELV ELV ELV LV LY ELV ELD ELV LV ELY LYE ELV LY LYE EEN EAN LY 
LLL FELL LOOOOLELLO ELE 


QUEMANSHO 
v04-000 


eee 153 | 


ARAAAAAMAAAD DO ODDSOOORRNTANENOR SON ODOSD OOF OOCADSAOSR SOOO oo 
LVLVLVLVLVLVLVLVLVLVLVLVLVLVLVLVELVELVLVELV LVL ELV LV ELV ELV ELV ELY LV ELY LY ELV ELVES TLV ALA VELEN ALAA LA UA LALLA LE OOOO OOO 
cee ee ce ee ee ee ee ce ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee el ee ee ee ee eh ee ee ed 


- 
] ee 
| N 
| me 
wom 
| > oP 
| ‘oO 
ot 
| wn 
j wa 
>< 
j , 
j Nu 
mo j 
‘co j 
| or | 
| nv | 
| = | 
| — 
@ms« 
os | 
| amy od j 
| -D> | 
| he | 
} =<=— | 
| qu } 
>u 
| ; | 
0“ | 
w i 
— 
a) al od 
ow -@ 
7 of on 
coo ~w-o | 
oO AW 
* ee wa 
om wO s+ | 
o- OFfa +e 
pe LT ee ~ 
wTvTr DMwo w w 
ono @O>3 . = = 
ow ees —- - & 4 
-—— Wu CC w 2 
¢ ee ‘ ee 
QQ tutes oe +4 a ee w =x 
Wee Keereree- OC eH ~ S-. &— «s oe 
Wn <aqaeeteaecaet tn) (7) ww oO A ~ e 
i) aj WwW 1] -_ ee Oo =a. 2 ww ee wn ~ 
wor OO0O000O w z orm 4 ot ww £ ~ oO uw 
-- >>>o>>or> > - 6o a lu ) ae J <« a << = 
= = w rv Otte §t 2 o _ <= 
~~ @ —_- &- iy td a oo W ao = 
- = o 2 Zee 25222 ww =z wv i Q 
. «-~> ze wn Owe Wes — WwW s Urs w 
oa-a-m ws -sO ao S322 —w oO WwW = oM —ee 
cn & i awa. << wo ti > 2 Ors —- wo (vUlvv) 
<€- twtr e& wo Y tw wet ww &a oO oe >= 
VEVvow 3<< Mu ee “€oao52 > of 4 @20O 2 OA o<« 
aoVvuac-ae AZA ~ ~Wwww ~~ ite § ~~ Ww ee fe ~=z 
ate <> vw we 2z0o 22525 Z2ujuw be = s re) Zz tes 
awww “wx=w ovdc ovucd ow see 6 wo Ouww 
32Onwaw ava “x —— 8 8 me SKVaeae “De -— 2 
> be 8 wots —du —-“”a0a - > —-OOooO Fw mw 
=x =»->~y> vaeu <w 1 qMww dw ti £24 <du <> 
- Vaeracw Mww Ven=z $<ss voww vamnm wa it vo 
L) <c£o-0O- wwmu oO we oO So YY SO ww OO tw So tw 
2 <-> D> a & AA AA Re LIMO CLIO SOS aA 
w waogoadg . aA 1 ae Aa=MYN 23> > 200 J aso 
- . *e Nett ~~ wet <5w-e <£5uM Dww S>aQaa <a55+: <<>> 
over 8 Qa w evan "© QA2D>A--+ BOAMO xwMOCe gaaa oaa sweeogo seOoOOo 
Muss w ” Vuv”"U - “So Oo 
vss - —_ Yn — nuun wunun nunoun nhuun none oun 
< ee 2 = ms ls nhunn 
aZzZe ~ oo _>aun6ou e eee Meee eee eee eee eee 
m— § Lie oo < on wr i ee Ammen oOCOCoO COOO SCOOOoOO OOOO OOOO OOO 
twwomZam: a " ~=Iw~=z ~ oOoooo eeese eesee eese eeee eees eee 
zraodtwue 4 ieorw - ess 3s OWONm owonnm owonm woonm oonNm oow 
YLOOCuwrFOD -r ws «eo a z2a2a CONN SFE MM SRK MM SEMIN Sem SEM Hem 
e&Z2z2wxD--@O>w w Mwitwe eo eemn eeses eeese esses eeee eeee eee 
qINMNoOwWISG cNwa. - UMwoww N ess 2s ©O09COO COCOCOOoO COOO COOOoOO COOCOOoOOoO oOo 
2 eS SS3nSs. 2a Syeowe - Oooo eese eeeses ED. aaa eeees atau 
— Or -_ = sees NWTOO woow oDow or om all 
§ > oo a 4 Fe Fee eK ee ee Re ee eee Re ee Re ee Oe 
. So Bded 2 2 S505 Seco Sess Sood ee Soo od 
a 
us | wee we dd ed ee ee ee dd ee 
o oe a~ = Sel ce Lee hee Le I Le ee ee I ee ee be ee ee bee ee ee bee ee 
= 
oe 
= 
” 


wr NNN ah a Ne EE eS FF Pe EN Ld) HVUMATNOR. DOOK— TUM TNOR. DOO 
Nee e Se 18D GO GO GD 60 60 G0 G0 GO Os O- “ee 
LKR LLIN SDBDRARA SOPOT SOSOSSSSS DOODDODOOOOOOO 


el ee ee ee ee el el ce ee el ee el el ce ee ee eh el ee eh ed ed eh ee ee ee el ee ee ee ee ee ee ee eh ee ee 


2 
2 
as 


AX-11 Bliss-32 V4.0-74 Pa 5 
Yet iut . $Resademansno. B42; 1 al 1 33 


1Ssto-1964 00:18:05 


SHOW QUEUE command 


2 
2 
as 


~~ 
*e [?e) 
~~ ese [ye 
se ” _~ -_/ 
~ =) _ => 
> — oe w Qa oe 
— co ~ oo So = 
_ wn _ ee ee a oy eo 
a — anil =~ ~ <« -— 7 wm 9 
oe os o ee a w - = = -w £ 
_~ a oe ww . — = eo — wes wi 
wn w [. ery 2) o to <x wre Oo = "> Od 
=> = a> vue w _ 2 —w ££ = wae t 
- —? ee <r OQee | ‘ ese &0O w “ 
i? =z *. we Wes -— ‘ = = we i hd 
- Hy = “Ma C Senk 2) — = | Dee Gee ee Baew 8 *e 8 wo 
” w om «O° zaw aa> are Cow 9 Wikre _ -o2] 
bled tee a+: © Qo=-> Vuw ve vue eZ 2 98S tw “= =woacs 
= wo ow 2 -ore vee ~~ ue ee vz -~-< w ~wOoOo ~~ sore 
—- 25 z= w za- Zzww Z2we Tne zz . — a a — aw 
Oo wre “Yet oO «x oa- oow Os © tee 8 a<«< wee Oa tt 
2 oa<« we-s 1 “wo —aToe -— © -_— & Eww wee = — 
ws Ce +s m7 teu | eth Lda —aew -— >< -S— —-aee ee tt -oe md tr rr} 
+a ~wnm ~wk= <<a <=z=e «au <a.= “<Oda aweow «oz <zounwm 
‘2a o zZzo<a<a voaoa VveuU Vuw Vue VGe 22 VO Vo Vvruw 
w Owe oo2zz Oo te Oo « o © Oo tw oO ttto @&ea oso tu oc =a 
“Ot wz 86 saw A +A 1 A 1 +~*@#Zz .Mww 4 | —m 6 6 
ese —Oww Se ed) oe ee aD a= ae Ze 23383 
«5M xqvaa << +s a2 ° DG ee Da. +e 20 Dww DaO «es > 
ae + a s’ss 2O DO avo ovo avo ounuw p= 7 Tt) a-7“o on7n™ 
2 AD ARANWY “nunun nhnun nununw nun nhnunune ee nuun nunut 
w J nh 
2 «55>. 20M ©& ANA OA SA SS Ose Mee meee Oe 
Go wroCcOoO so oooo OoCOooo OoCOoOOoO COOOO COOOO OOOO COOCOoOO OOCoO 
nu iT} eeese ees 8 eeees ee 8 8 eee se e*ees eee#s e*eees 
“ nuun nu oonmm oOonmm oonNm oonNN OWONN OONN OWONN OO, 
oe mm SO OE MM EMM EMM Se MM ee IM 
Ve eer TmOooO oO [om | ees 8 e*eee eee @ e*eees e*eese ees es 8 eees eee 8 
o oooo oo +s . =) oooo oooo oOoOoOoO OOCOoOO COCOOO COOoOOoO COOO OOOO 
5 CONN Comm mM 3S WONO OnwO NSO YOUN CHOY BONS SNWO NOS 
uw OOonm OOF mM La bd NTOCO ww woo 
MO eK ee 2 & . rr Sornre cucucur Tr TIT MNO ORK BODO APOCOS 
° * 6 6 & * ©O0Oo Oo 4 Se ce ell el el el ed ed od ed el eh el ed hh he eh eh 
o oCooo oO + + . > eee Ot tt 
bd ee2e2s * Ov @ wu eee Ree Re eR i Oe ee 
rr - _ -_— at 
Sooo S056 G ££ SOteee eee ee@eze¢ ee@ze¢z¢ eeez eeez FezezX FEZ 
—- eee Ree a WWE Eee OR ee Oe ee Oe ee ee ee OR ee ee ee 
ye | MMM MWMWWMOHM WW =. Sones te eee A ce Le oe ee Lee be ee he be bee 
| aa . 
=< £ee=z eeez Zz S 
- Fee Re ee wt 
-— eet tee oe ot 


mm me me me me mm  ENIENION IOI OI ONION OI OI OY PAPEETE ww 


i OOO Oe 


woowowowowownovovod 


LE 


MeucueucucucuNeNe 
WII ooo soso oC oSSISSSSISS OOS SoS OS OSS SESS S SES CCSD SCOTS S 


DEPP RL ee eT eT EL ee eT eee er ere eT eee ee ee ee eT Se Fe Fe ee ee ee *S 2S Se Fe Fe FS FO FS FS Ce*S FS FS FS Se *e*e*e*e%e *S*O*S 


ree 1 $ 


eo Oh ieee eo at 
CLIUTL.SRC JQUEMANSHO.B52;1 


SHOW QUEVE command 


5 


=~ 
2 
So 
— 
*e ee — 
n~ ~~ <q ee 
> 5 w =x 
“ss. 
wz © 
oe _ -—O 2 
bd z wer ws *e 
c-¢ — kal he -_/ os ~~ ee 
= +e = ee Q@enw § ~~ z ~ oe 
ee Lm OV22 wow o -_ ~ se 
uw w Ooo - sd a _ ~ 
~ NN Su D> Land 2 2 < 
mba — C+ nl oot ed t VY < uw - 
Wire oe MZ es «vata w ve -— Oo 
= Lond Qawew ww — ss uu Pad = 
a= oz @Mat—- Zee o2 ad w So 
oO o «= mu a: eo ne Wee ” 
“ule “use —_ oo _ an 34 sae Bee 
Nx -~Nz wrev ~2D se -2> -2z ~wv<« 
2-< 2 Z2aww 2 t Zw-e z2< aw ze 
ovx ouvx o<aa OG +s Owz Ouse or oo =- 
-— 68 — @ 8 $y —w ——O — >t ce se] @a 
— Mw —@mw —-@ 6 t eae -oO- —-ow —we —O ee ” 
«on <on~ <—>> <2 <r «> <q“w2 «qnw< : Oo 
vu, vor VvwJIeae ww 4 vawn ee t 4 wBw var ws -_ -~ 
oOo ws oOo & oO «=< oO «= oOo tw oO & So &- o S = . a 
—A 1 +A 1 APO jw aA jAw aA oA ww kad 
oe a a=-O@M I =O oa=-a ae ao > " _ 
=a50O:: <> © <5 DBee Ss2¢ se DW «es DWM «es DWM +e «+e o z 
s2O-CO BO™7MO HOW) = J oao o30o go3o o3o oO ma $s = 
* 
nhunn nhuun nuun nhunonw nuon nunn hun nunun “ w“ < = ., 
eens Ss sess ee 8 -a: kad 
oooo OoCooo OOOO OOOO COCOoOOoO OOOO OOOO COCO oO a au, 4 => 
sess ees ess eeees e*eese ees se eeeses eesee eeese 7 | ee UD uw 
~°oormm oonm oom oOonNNm oOWoONN OWONN OWONN OOTNN tw Los p= Te a 4 > 
SOE PE EM EM EMM KE MM KR MM KK mM Mm So @€-—w So 
esse 8 eee 8 ees 8 e*ees eee ses ee ee e*eses eeese . — —*A-—- OT ~~ 
CSOSO SOOO SOOO SOOO SOOO SCOOO SOOO COCO CO ~ wae ne ” 
eeese esses eees eesee ee es eeee eees eesee s oe TC ee B=) vw 
0eom ODOT DOWO OTD WTOO woOOdw oODOwTr DOWO CO AGE - 
3ss~ SKN NM SII NNO OOOR RADOD DOOHA CO ~ Oo wns _ 
ervieur = cucucur oo gucucuCy ogucuCcur oo gucuCum oguCuCUuT ogCuCuCuN OCCU OM ee & "S235 @ 
Oh a < - 
eee ee OR i OO ee OR i i ee ee w MWD-oOrF ” 
oS Sa ed Oe ee Sees ooae Soe Soe ees 2 
*e _— o 
eee eee eee Peete Seez eee@ze¢ ee#ze#z¢ eze#ze#z ZS -o< 
ed ed ed ee ed dd ed ee a we rr 
Cele A hh ee ee lo tt Tt) a vw) 4 wow -_ -_ 
4 
= 2 
--—-3B 


3 3 23 GO GD GD EO GD GD GO Os O- OO. Os Os O- Os O* ooo et ah a ab a a a ah eh 


CC CO OO COC Eee 


aaa 


HORN ITN AeA EN Sa aess DOOK—CUMTMOR- DOO K— UM TNO DOOK— CUMIN 
oo SSoone oooo CucucucucucucuTy 

BeBe SSSSS SSS OCS S SCO SOO OS OS OSS eee RTE RAN UNO U ROI 

ce el ee ce el el ee ee ee ee ee ee el el ee ee ee ee el eh el eh ee eh el el ek eed eh ee eh ee ed ee eh ee ee eh ee ee 


SvOW QUEUE command 1eSeor198E O0:18:08  yavett OLsasasz yea OT 


Boom 


VFN —OOONAOULS Ww 


DONOAOULS WN OC OONOU Sw 


PPP AAIAVIA LE BE EE 


SN NSN 
pe o 
> LEAF 


OnoOuw 


SSNS 


PPP PANAMA AAA AAAS EPR RRR RS 
WN — SO OONOAVUE WN “CO OOVNAUS W000 


ae 


POPU APPA MADMAN AANA. MAAN NAA NNN WH NNNIAN NAIA. AINE EAE ENT Pt 


SINS 
=S3 


bet 4 


wh 
SS 


saw 
NOS 


NOUSWN OC 0® 


SSssssee 


a a a a a a a a at a a ts st as a as i nk ts i 1 2 a as a a 8 a 
—_—> 


a a ia a tk et ed a = a 8 8 a 8 


SS 
SSNs 
NNN 


CLIUTL. SRC JQUEMANSHO 


THEN 
BEGIN 
IF NOT .STATUS 
THEN 
BEGIN 
SIGNAL(.STATUS); 
EXITLOOP; 


BEGIN 
i" «STATUS THEN EXITLOOP; 


4 QUEUE FLAGSCQUISV_QUEUE BATCH] 

if - QUEUE _FLAGSCQUISV_QUEUVE_GENERIC] 

8 TYPE = UPLIT BYTE (ZASCIC ‘Generic batch’) 
TYPE = UPLIT BYTE (ZASCIC ‘Batch") 

IF .ASSIGNED_QUEUE_NAME_LENGTH NEQ 0 
TYPE = UPLIT BYTE (ZASCIC *Logical") 
FF gj EE PUASSCOUI ON _OUEUE SENERIC? 

dl -PROCESSOR_LENGTH NEQ 0 


TYPE = UPLIT BYTE (ZASCIC ‘Generic server’) 
FUSE IF .QUEVE_FLAGSCQUISV_QUEUVE_TERMINALJ 


nes’ = UPLIT BYTE (ZASCIC ‘Generic terminal’) 
TYPE = UPLIT BYTE (ZASCIC ‘Generic printer’) 
if - QUEUE _STATUSCQUIS$V_QUEUE_SERVER] 


TYPE = UPLIT BYTE (ZASCIC ‘Server') 
ELSE IF .QUEVE_FLAGSCQUISV_QUEUE_TERMINAL) 


if -QUEVE_STATUSCQUISV_QUEUE_REMOTE) 
nce’ = UPLIT BYTE (ZASCIC ‘Remote terminal") 
ELS TYPE = UPLIT BYTE (ZASCIC ‘Terminal') 


TYPE = UPLIT BYTE (ZASCIC ‘Printer'); 


ELS 


FLAGSCV TRUNCATE) = TRUE; 
FAO_("!AC queue !AF*, .TYPE, .QUEUE_NAME_LENGTH, QUEUE_NAME); 


IF .QUEVE_STATUSCQUISV_QUEUE ALIGNING) 
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77 THEN FAO_(", ali 

8 F .QUEUE STATSCQUISY 0 adeve ZOPERATOR_REQUEST 
£36 780 THEN FAO ( operator se e'): 
79 78) IF .QUEUE sTayscau 1$V_QUEUE “PAUSED! 
798 7 2 THEN ( pause 

f IF .QUEUE sratyscby ul “OyeUE, PAUSING) 
601 785 If .QUEUE STATUSCOUIS, Guede RESETTING] 
o 7 THEN FAO ese ting F 

7 IF NOT NOUEUE (tA ATUSEQUIS QUEUE ALIGNING) 

4 , : AND . ;QUEUE S STATU SCQUISV y QUEUE RESUM 

? IF QUEUE *StAtyscoulsy. “abeue, STALLED] 

791 THEN FAO_(*, sta the éd 

13 IF QUEUE Sratyscauls V QUEUE. STARTING) 
809 79 THEN FAO ng 

94 IF Qveve STatTusCauisy QUevE_SToPPED) 

IF .QUEUE_STAT SCovisy sayeue. IDLE) 

e AEE Sepeee 

799 IF QUEUE ST sgtatystoulsy: tete ner OPP TAG) 

01 IF .QUEUE STATUSCOUISU. TohebE. sNAVAILABLE] 

HS} THEN FAO_(", devicé unavailable’) 
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ts 


IF .ASSIGNED_QUEUVE_NAME_LENGTH NEQ 0 
THEN 


FAO_(*, assigned t 
~ -ASSIGNE nOUEUE WARE “LENGTH, ASSIGNED_QUEUE_NAME); 
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IF . ASSIGNED QUEUE _NAME_LENGTH EQL 0 
THEN NOT .QUEDE_FLAGSCQUTSV_QUEUE OGENERICI 


EGIN 
it -SCSNODE_NAME_LENGTH NEQ 0 OR .DEVICE_NAME_LENGTH NEQ 0 
FAO_(", on °); 
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IF SCSNODE_NAME LENGTH NEQ 0 
FAO_(*!AF::°, .SCSNODE_NAME_LENGTH, SCSNODE_NAME); 


4 -DEVICE_NAME_LENGTH NEQ 0 
= FAO, ("!AF*, .DEVICE_NAME_LENGTH, DEVICE_NAME); 
FLAGSLV. TRUNCATE) = FALSE; 


IF .FLAGSCV_FULLJ 
THEN 
BEGIN 
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; 1851 1835 4 EOL i 

: PENDING SPACES] = 4; 

3 i 5 } : ‘ FLARE Bf TT RARGING = 4; 

: 14 1 

: 1855 1 4 

: : FLAGSCQUISV_QUEUE_GENERICJ 

24 } ¢ Ano V-AS81GNED QUEUE NAME CENGIN EQL 0 

: HEN 

; ; § 5 Pool ease PRIORITY=:UL". .BASE_PRIORITY); 
2} FLAGSCB_ PENDING. SPACES) =°1; 

; 1863 1845 S(B_ 

3 } ; $ 2 END; | 
i] } ¢ FLAGSCQUIS$V_QUEUE_BATCH) | 
: \een } ‘3 ¢ Sho aor SURGE FLAGSCQUISO QUEUE GENERIC) 
: 1 1851 4 AND »ASSIGNED_GUEUE_NAME_LENGTH EQL | 
: 1 1852 4 HEN | 
6 N | 
; 1889 i 38 FF Noe. S1ZE_MINIMUM NEO 0 | 
: Bhs 1886 THEN e .JOB.SIZE_MAXIMUM NEQ 0 | 
; i878 1887 FA THEN GIN 
2 'UL, !UL)" 

AB rie oe a EN a 8 Sze mann 

: 1808 180 FLAGSLB PENDING. SPACES) = 13 | 
eg pgette | 
; 1850 1 3 BEGIN - | 
: ; K_LIMIT=(!UL,"")*, 

a P ibee g aed Se pS EE IMEI se 

: 1888 1867 6 FLAGS B_PENDING_ : | 
| 
HB iG CSE sca s12e rina 0 
+ 1887 4 3 THEN cin | 
: 1889 "/BLOCK_LIMIT=!UL", | 
We tie pet nian: 
: isos 1875 g FLaGéLB_PENDING_ SPACES) =1; | 
: 187 ND; | 
: if 7 4 END; 

: 1895 \ ¢ FLAGSCQUISV_QUEUE_GENERIC) | 
: ipo? 188) AND ASSIGNED “QUEUE NAME. CENGTH7EGL 0 | 
: } H: } 4 FORMAT_CHARACTERISTICS (CHARACTERISTICS); | 
1 1 4 

: 1901 } Q QUISV_QUEUE_ BATCH) 

+ 1908 ise? AND’ NOT QUEUE FLAGS COUs $y QUEUE GENERIC 

: 1 1 4 THEN 

: 180s } FF QUEUE _FLAGSCOUI$V_QUEUE_CPU_DEFAULT) 

: 1909 1 THEN 


5 
1E-sep-1964 00:28:05 YANG BLing=32 4.06743, 


( 
sEASCIC *CPUDEFAULT'), 


SHOW QUEUE command 


> 


3325352838 
oe Pr Pe Pe Pe er Pe Pe Pe 
OOONAUN EW 


FORMAT CPU_TIME 
uPCir Brie 
- CPU_DEF AUL 


IF, QUEUE _FLAGSCOUI$V_QUEUE _CPU_LIMIT3 


FORMAT _CPU_TIME( 
UeE rT Brig CsAscic *CPUMAXIMUM'), 
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IF NOT .QUEVE FLAGSCQUISV_ QUEUE BATCH) 
AND NOT .QUEVE FLAGSCQUIS? QUEUE GENERIC 
AND .ASSIGNED_GUEVE_NAME_LENGTH EQL 


N 
FORMAT_DEFAULT(.QUEUE_FLAGS); 
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yon 008 12-808-1382 et Fe CLIUTL. SRC JQUEMANSHO.B32;1 
FD70 «CFO 1$: PUSHAB P.ACW 
000000006 0 ; F ; cA ts #i, CLISPRESENT 
20 AE 4 BISB2 #8, SEARCH_FLAGS 
FEDO CD 008D (¢B ; 40 2% MOVW P2 DESC ITALST 
FED2 CD 4D «oF 8 4 MOVZBW # Ith, STs 
FED4 §= CD 0091 CB D 4D VL P2_BESC+4, ITMLST+4 
FEDS D D4 24 CLRL TAL T+ 
FED CD 004¢0 04 F pO MOVL #4980740, ITMLST+12 
FEEO CD 0 AE ; 6 MOVAB SEARCH BLAGS, ITMLST+16 
FEES D D4 0006 CLRL ITMLST#2 
FEES CD 00030027 &F DO 0 98 MOVL #196647, ITMLST+24 
FEEC CD FEAS CD 9E MOV ASSIGNED_QUEUE_NAME, ITMLST+28 
FEFO CD FEAG D 9E 00 iB MOVAB ASS I GNED_QUEUE NAME_LENGTH, ITMLST+#32 
FEF4 CD QOOEOOIF &F p 00 MOVL 17535, I1TMLST+36 
FEF8 CD FE68 CD 9E 000 MOVAB DEVICE_NAME, ITMLST+40 
FEFC CD F $ D 9E 0009 MOVAB DEVICE NAME LENGTH, ITMLST+44 
FFOO CD 00430 F 00 000 MOVL #4390951, ITMLST+4 
FFO4 © CD 8 AE 9E O0A2 MOVAB PROCESSOR, ITMLST+52 
FFOB CD 56 OA 4 900 MOVAB PROCESSOR LENGTH, {TMLST+56 
FFOC CD 00450004 BF D OOAE MOVL #4521988, ITMLST+6 
FFI0 3=—s CD 4C AE 9E 0008 MOVAB QUEUE_FLAGS, ITMLST+64 
FF14 CD 04 000BD CLRL ITALST +8 
FF18 CD 0046001F &8F 00 000C1 MOVL #4587551, ITMLST+72 
FFIC CD C AE 9E OO0CA MOVAB QUEUE_NAME, ITMLST+76 
FF20 CD A AE 9 00000 MOVAB QUEUE NAME LENGTH, ITMLST+80 
FF24 CD 00470004 BF D 90006 MOVL #4653060, ITMLST+84 
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FFOC }86CD OG OO0E5 CLRL ITAL STs9 
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€ AD D4 00195 CLRL TMCS 
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16-Sep-1984 00:18:0 AX-11 Bliss-32 V4.0-74 Page 
12-88-1382 PR fe: CLIUTL.SRCJQUEMANSHO.B32;1 ° aS 
9E 001A0 MOVAB JOB_RESET_MODULES, ITMLST+196 : 1662 
a 1A6 MOVAB 408 RES TIMODULES LENGTH, ITMLST+200 + 166 
D 1AC MOVL #3080196, ITMLST+204 3: 1665 
9 1B4 MOVAB JOB SIZE MAXIMUM, ITMLST+208 + 1667 
D4 001BA CLRL IMC Sts T + 1668 
D0 O18D MOVL #3145732, ITMLST+216 + 1670 
9E O01C MOVAB JOB SIZE MINIMUM, ITMLST+220 : 1672 
D4 001¢B CLRL IMests 24 + 167 
0 OO1CE MOVL #3342375, ITMLST+228 + 1675 
E 00106 MOVAB LIBRARY_SPECIFICATION, ITMLST+232 + 1677 
9€ 0010¢ MOVAB LIBRARY-SPECIFICATION LENGTH, ITMLST+236 =: 1678 
p bles MOVL #3670020, ITMLST+240 3 1680 
E OO1EA MOVAB OWNER_UIC, ITMLST+244 : 1682 
D4 O1F0 CLRL TMS : 168 
DO OO1F MOVL #445645 ITMLST 4252 + 1685 
9E OO1FB MOVAB PROTECTION, ITMLST+256 : 1687 
D4 00200 CLRL LTMLSTs + 1688 
D0 00203 MOVL #5373956, ITMLST+264 + 1690 
9€ 00208 MOVAB WSDEFAULT, ITMLST+268 : 1692 
D4 00210 CLRL TMLSTs 7 + 169 
DO 00213 MOVL #5439492, ITMLST+276 + 1695 
9€ 00218 MOVAB WSEXTENT. ITMLST+280 + 1697 
D4 00220 CLRL TNL STs 84 : 1698 
DO 00223 MOVL #5505028, ITMLST+288 + 1700 
9E 00308 MOVAB WSQUOTA, ITMLST+292 : 1702 
7C 00230 CLRQ —sITMLST+296 ; 1703) 
7C 00233 4$: CLRQ  =(SP) : 1716 | 
9F 00 33 PUSHAB 10SB : 
9F 00238 PUSHAB ITMLST : 
7D 0023¢ MOVQ #6, -(SP) : 
D4 O085F CLRL = =($P) ; 
FB 00241 CALLS #7, SYSS$GETQUIW ; 
D0 00348 MOVL RO, STATUS : 
E9 00248 BLBC STATUS, 5$ : 1717 
DO 0024E MOVL  10SB, STATUS F 
D2 00251 5S: MCOML TUS, RO + 1723 
E 00254 BBSS #0, QUEUE_PRINTED, 6$ : 1720 
ES 00258 BLBC ~—E—s«aRO, 7S : 1723 | 
DD 00258 PUSHL STATUS : 1726 | 
FB 90630 CALLS #1, LIBSSIGNAL 3 
04 00264 RET : 1725 | 
c9 00265 6$: BLBC —_ RO, 78 : 1732 | 
4 00268 RET ; 
E9 00269 7$: BLBC QUEUE FLAGS, 9$ ; 1736 | 
El 0 BBC #1, QUEUE FLAGS+1, 8$ : 1738) 
: 0 : MOVAB P.ACY, TYPE : 1740. 
11 0027 BRB 17$ ; 
9E 00279 8$: MOVAB P.ACZ, TYPE 1743 
11 0027 BRB ? : 1738 | 
83 9$: ist ASSIGNED_QUEUE_.NAME_LENGTH > 1744 
H 0 MOVAB P.ADA, TYPE > 1746 | 
11 00 BRB 17$ ; | 
E1 00280 10$: BBC #1, QUEUE_FLAGS+1, 13$ > 1748 | 
8 029 TSTW  PROCESSORLENGTH : 1750 | 
029 BEQL ss ‘11 ; 
9E 0029 MOVAB P.ADB, TYPE 3 1752 | 
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yok 12-88-1382 90: OBie3 CLIUTL.SRCJQUEMANSHO.B 2;1 . as 
11 0029¢ BRB 17$ ; 
07 4E OA 35 fi 0 96 11$: BBC #2, QUEUE _FLAGS+2, 12$ t 1753. 
5 FB2E cf 9 6 A MOVAB P.ADC, TYPE : 1755. 
56 FB38 $5 H 0 AA 128: MOVAB PADD, TYPE ; 1757 | 
07 25 AE 1 fl 0281 13$: BBC #1, QUEUE STATUS+1, 14$ t 1759) 
56 FB3C cr 9 0 B6 MOVAB P ADE. TYPE ; 1761) 
13 4E AE 02 E1 002BD 14$: BBC #2, QUEUE_FLAGS+2, 16$ t 1762) 
07 24 «AE 6 Fl 0 Ce BBC #6, QUEUE-STATUS, 15$ 3 1764 | 
56 FB32 cf oF 0 cf MOVAB ADF. TY + 1766 
56 FB3B CCF 1 0 cE 15$:  MOVAB P.ADG, TYPE : 1768 
05 11 002d BRB ? + 1764 
56 FB3D «CF 3 00205 16$: MOVAB P.ADH, TYPE + 1770 
F9 04 88 002DA 17$:  BISB2 #4, FLAGS + 1773 
2C AE 9F OO02DE PUSHAB QUEUE_NAME 3 1774 
7E 2E AE 3C 00261 MOVZWL QUEUE"NAME_LENGTH, -(SP) : 
56 DD 00 E5 PUSHL TYPE : 
FB33 «CF OOF «O02E7 PUSHAB P.ADI : 
6A 04 FB O02EB CALLS #4, FAO : 
07 24 AE ED 00 EE BLBC + QUEUE_STATUS, 18$ 1777! 
FB36 «CFOS: «OO2F PUSHAB P.ADJ : 1778) 
6A 01 FB 002F6 CALLS #1, FAO ; 
07 24 «AE 03 4 002F9 18$: BBC #3, QUEUE_STATUS, 19$ : 1779, 
FB35 CFOS: «OO2FE PUSHAB P.ADK + 1780 
6A 61 FB 00303 CALLS #i, FAO : | 
07 24 «AE 04 al 00305 19$: BBC #4, QUEUE_STATUS, 20S : 1781 
FB3C «OCF sO9F ~O030A PUSHAB P.ADL : 1782 | 
6A 01 FB 0030E CALLS #1, FAO 3 
07 24 «AE 05 €1 00311 20$:  6BBC #5, QUEUE_STATUS, 21$ : 1783 
FB39 «CFOS: «00316 PUSHAB P.ADM > 1784 
6A 01 Fe OO31A CALLS #1, FAO : 
24 AE 9 00310 21$: STB QUEUE _STATUS > 1785 
07 18 00320 BGEQ 22$ : 
FB37 CF O9F: «00322 PUSHAB P.ADN : 1786 
6A 01 EB 003 6 CALLS #1, FAO F 
0B 24 AE €8 00329 22$:  BLBS QUEUE_STATUS, 23$ : 1787 
07 ¢5 AE F 00320 BLBC  QUEUE-STATUS*1, 23$ : 1788 
FB34 «CF OOF: «00331 PUSHAB P.ADO : 1789 
6A 01 FB 00 5 CALLS #1, FAO F 
07 25. AE 02 a 0338 23$: BBC #2. QUEUE_STATUS+1, 24$ : 1790 | 
FB33 «CF «OOF 00330 PUSHAB P.ADP : 1791 | 
6A 01 4 0341 CALLS #1, FAO 3 
07 25. AE 03 E 0 44 24%: BBC #3, QUEUE_STATUS+1, 25$ : 1798 
FB31 CF OF 00349 PUSHAB P.ADQ : 179 
6A 01 FB 00340 CALLS #1, FAO : | 
12 35 AE 04 E1 00 0 25$: ¢ #4; QUEUE_STATUS+1, 28S > 1794 
06 4 AE 1 Fl BBC #1, QUEUE-STATUS, 26$ > 1796 | 
FB2B «COCF:COCOSF A PUSHAB P.ADR : 1797 | 
04 11 3 BRB 7$ ; 
FB2F CEOS $:  PUSHAB P.ADS : 1798 
6A 1 Fe 64 27$: CALLS #i, FAO ; 
07 25. AE 5 f 67 28$: BBC #5, QUEUE_STATUS+1, 29 : 1799 
FB32 CROCS 6 PUSHAB P.ADT : 1800 
6A 01 FB 00 CALLS #1, FAO ; 
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yoee008 13-808= 1382 a fh CLIUTL. SRC GUE Manno 68231 : id 
07 25. AE 06 £1 00373 298: BBC #6, QUEUE_STATUS+1, 30$ | : 1801. 
F831 cr fF R PUSHAB P.ADU ~ + 1802 | 
6A 1 FB 0037C CALLS #1, FAO : 
FEAG cp 8 7F 30S: ist ASSIGNED _QUEUE_NAME LENGTH 1805) 
FEAR OCD OF OORBS PUSHAB ASSIGNED_QUEUE_NAME : 1808 | 
7E FEAS cd 3C 9 MOVZWL ASSIGNED_-QUEUE"NAME_LENGTH, -(SP) ; 
FB3 cr F PUSHAB P.ADV : 
6A 3 FB 9 CALLS #3, FAO : 
FEA6 CD B85 00395 31$:  TSTW  ASSIGNED_QUEUE_NAME_LENGTH + 1811 
60 12 00399 BNEQ  35$ : 
3B 4D AE 01 € 0 BBS #1, QUEVE_FLAGS+1, 35$ + 181 
16 AE B A TSTW SNODE_NAME_LENGTH : 181 
06 12 003A BNEQ $ : 
FE66 «6 CD «OBS 003A TSTW DEVICE_NAME_LENGTH : 
67 13 0039 BEQL ©: 33$ : 
FB25 CF «OOF OO3AB 32$:  PUSHAB P.ADW + 1817 
6A 01 F O3AF CALLS #1, FAO § 
16 AE B 00382 33$: STW CSNODE_NAME_LENGTH + 1820 
0€ 13 0038 BEQL 43 ; 
18 AE 9F 00387 PUSHAB SCSNODE_NAME + 1822 
7E 1A AE 3c O3BA MOVZWL SCSNODE-NAME_LENGTH, -(SP) : 
FB18 CF OF 0038 PUSHAB P.ADX F 
6A 03 FB 90 C CALLS #3, FAO F 
FE66 «CD 8 O3¢5 34$:  TSTW DEVICE_NAME_LENGTH + 1825 
10 13 003¢9 BEQL 35$ : 
FE68 CD i 003¢B PUSHAB DEVICE_NAME : 1827 
7E FE66 «6 CD S3C «O03CF MOVZWL DEVICE-NAME_LENGTH, -(SP) : 
FB08 cr 9F 00304 PUSHAB P.ADY : 
6A 3 FB 00308 CALLS #3, FAO F 
Fo «AB 04 8A 003DB 35$:  BICB2 #4. FLAGS : 1829 
03 F9=oAB oi ee 0030F BBS #1. FLAGS, 36$ + 1832 
0278 31 003E4 BRW 64$ : 
0000v CF 00 FB O3E7 36$: CALLS #0, EOL > 1835 
68 04 90 OO3EC MOVB #4. FLAGS+7 > 1836 
FD AB 04 90 00 EF MOVB #4. FLAGS+4 : 1837 
14 4D AE 01 £0 00 F3 BBS #1. QUEUE FLAGS+1, 37$ > 1840 
FEA6 CD | 003F TSTW  ASSIGNED_GUEUE_NAME_LENGTH + 1841 
OE 00 FC BNEQ : 
FEAO CD 0D 00 re PUSHL ®BASE_PRIORITY > 1844 
FADE CF 9F 0040 PUSHAB P.ADZ ; 
6A Ge F 0406 CALLS ? F 
68 1 90 004 MOVE #1. FLAGS+7 : 1845 
46 4C AE E 940 37$: BLBS Queue FLAGS, 42$ : 1849 | 
41 4D AE 01 £0 0041 BBS #1, QUEUE FLAGS+1, 42$ > 1850 | 
FEAG co 8 0041 TSTW ASSIGNED_QUEUE_NAME_LENGTH > 1851 | 
B 12 0041 BNEQ $ : 
000 CF 5 g04i6 TSTL 408. S1ZE_AINIMUR : 1854 | 
00B4 CF p oe 1 TSTL 408_SIZE_MAXIMUM ; 1856. 
1 4 3 BEQL $ ; | 
0084 CE bd 004 PUSHL JOB_SIZE_MAXIMUM > 1860 | 
0B4 CE pp 428 PUSHL JOB~SIZE~MINIMUM F | 
FAC4 cf F 0042F PUSHAB P.AEA ; | 
6A 3 re 433 CALLS #3, FAO F 
1B 11 004 BRB : 1856 
0080 CE 0D 00438 38$: PUSHL JOB_SIZE_MINIMUM > 
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OA 4D AE f D BBS #2, QUEUE_FLAGS+1, 48$ 
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JOB_RESET_MODULES 
JOB-RESET-MODULES_LENGTH, -(SP) 
QueOE FLAGS 

#3, FORMAT SEPARATE 
QuEUE_FLAGS, 

#1, QOEUE_FLAGS+1, 63$ 
#3, QUEUE-FLAGS+2. 61$ 
WSBEF AULT 

#2, FORMAT_WORKING_SET 
#4, QUEUE_FLAGS+2, 62 
WSEXTENT 

P.AEU 

ae. FORMAT WORKING. SET 
#5, QUEUE_FLAGS+2, 63S 
WSQUOTA 

P.AEV 

#2, FORMAT_WORKING_SET 
FLAGS+ 

FLAGS+4 


MM Horner foror 
SE SEses SSE SEE F 


3 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Ge Ge See Se Se Be Ge Se Fe Se Se Fe Se Se Se Be Fe Se Se Fe Fe Se Se Se Se Se 


age Oh ieee ine as 
CLIUTL.SRC JQUEMANSHO.B52;1 


85 


08 


1$-se0-1986 09 


s 
3 


_ 
[om | ss 8 ~ rt 
w Ca] [on] - we 
me w w w we 
o> - oe _- > 
uno > = > > @ 
- >= @ @ @ @ ° 
IN . > — es es WwW 
ran Oo [om] _ nro wo ww 
wom Mm ~ ~~ rer rn 
Jes os r=) ws ae) as kl 
evc « [+4 et fel OT & 
Oowo Oo + ©& oe ew . vo 
" -—>-a-a - -a ora Orfar- 
us wWrVaeVve ww wo av wavVuauw 
> oveeseY w uw ws wow 
4 * o>a>3> > > > >3> 
4 s ae . ees eeees . 
> aveyververvelvelvelvelve velvelvelveyvervelvelvelvelvelvelvelvelvelvelvel 
“3 a ce ce ced ced ce ed ed ced ed ce ed ed ed ce ed ed ed ed eed ed ed eed eed 
=] be 4 da hd at ad Od Od nd at nd ad Od Ont Od Bd Ded) Oe Bad Dee De ted Ol) Sed On Bm 
oc VOU WR RR RR RR RRR Rm mR me eR eR ee 
a oS 9555555555555555555555555 
” BO BOSSSSSSSSS5555555S5555555 
2 £ QQ O>>>>>>>>>>>>>>>>>>>>>>>> 
<< 
aa wo 
wn pe} 
6 o 
s - 
ive) we 
=> x 
Ss ee = 
> S 
o 
Fe = 3 
ban -a = oe ee ooh oe =3 
o s2 coee § ww” zww ° oe =x 
8 pos “w<te Fa ert _ | = —— 
=e Ssz 85 = Za & #5 
oe con wy ad - 
Ss ae °° “— -2aca sw & w tt & Z wwe 
eo -—c ad ” "> “OM tt ee @O> w A o 6 we —j-— 
~ cern ww oe a ” Or we EZ 8 tee WMH 2 We wm 
" ve = ” [vey _ << Zazz - az ms bes Se 
4 aF w on t z oT ae me oe woe Pw ete] we > >wY 
iol = x ° “a ee —— wwea< ~<e ww 
bo) oat i ” (tit — we (VUy Ty oe) >> — —-— 25-2. 
6 a 2 - ww VYaEewM Soe § EeowM Mnaonw 
3 A. - Ss < = a alt ae z2 Seen oeeeeeeees 
ku =— Ewe 
s < - oo - — SS eu trrr az se SS8S38S8SSSS 
wo - a ~ -~ ¥ wa GO OO Ne 93999 OO I I 
- vw oa wu w 
-_ (vv) 
me he [—) 
- PRES ER 8.8 8 
FS > we _ - _ « ".) § ws 3 
w 
@ oa) 


w MAT wo MATL 
PEPESSSOSSSSSLOR IO PORE NN LLNLT ERT 


LL 


NVUINTN OP OO WMA TNOP ame Nm ts. ab AA) ooo 


Seth el cel el ck ee ce el ce el ce eae ee ee ee el ee ee ee ee ee ce ce ee ce ee ce ee ce ce el ee ee ee ee ee ee 


o 
ww 


REV ESBELESP ALAS Sasso STS OS 


o 


ck a td ad ad od od 9 2d = 2d 
w 


SSSSSSSSSSESS_q 


RVISSSLEAEANLESSLEALANLS SSNS ASIN AS SSIS ALERIS SETA KUO ooo we 


PRN ON at a a a a at tt ns a as bs a a a ss ss as a tb a bs a a a a a 


ceed aR ee ab a a et 


CONOUS WO 


SHOW QUEVE command 15-Sep-1984 99: $i 9 


AX-11 Bliss-32 V4.0-74 
CLIUTL.SRCJQUEMANSHO.B32; 1 


VOLATI vec TORC255.BYTEI, 


14-Sep-1 
hove’ SPECIF ICATION_LENGTH: VOLATHL 
VOLATIL 
NOTE SLENGT EQUEST VOLATIL 
aay OF me ST_LENGTH: VOLATIL 
VOLATHL 
ARETER=| LENGTH: VOLATIL 
ARAMETER-27 VOLATIL 
parang rn-frteNeT™ vecarit 
PARAMETER 3_LENGTH: VOLATIL 
PARAMETER_4: VOLATIL 
PARAMETER-4_LENGTH: VOLATIL 
panes Tee VOLATILE 
PARAMETER_5_LENGTH: VOLATILE 
PARAMETER_6: VOLATILE 
PARAMETER @ LENGTH: VOLATILE 
PARAMETER 7: VOLATILE 
ARAME TER-7_LENGTH: VOLATILE 
Pp Ane TER 8: VOLATILE 
pevoniececuene™™ VeLATILE 
REFUSAL _REAS - VOLATILE 
REFUSAL REASON, LENGTH: VOLATILE 
SEARCH_FLAGS: VOLATILE 
SUBMISSION. TIME: VOLATILE 
USERNAME : VOLATILE 
USERNAME LENGTH: VOLATILE 
eer VeLATILE’ 
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I VECTORC2), 
JOB. PRINTED; 


SEARCH FLAGS = QUISM feeexe WILDCARD; 
IF CLISPRESENT(SDESCRIPTOR 

THEN SEARCH ites QUISY. SEARCH_ALL_JOBS) = TRUE; 
JOB_PRINTED = FALSE 


Initialize the item list. 


2 QUIS SEARCH, FLAGS: FLAGS); 
© AGS; 
= SEARCH FLAGS; 
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QUIS _AFTER_TIME; 
AF TER_TIME; 
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QUIS COMPLETED BLOCKS; 
= COMPLETED BLOCKS; 
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STATUS = SGETQUIW( 
UNC=QUI$ DISPLAY_JOB, 
ITMLST=ITALST, 
10SB8=10S8) ; 
IF .STATUS THEN STATUS = .10SB; 
IF NOT .STATUS THEN EXITLOOP; 


FLAGSCV_TRUNCATE) = TRUE; 
IF TESTBITCS(JOB_PRINTEDS 
THEN 
BEGIN 
FAO_(* Jobname Username creer 
IF NOT .QUEVE_FLAGSCQUISV_QUEUE_BATCH) THEN FAO_(" Blocks"); 
FAOL_(° Status’); 
FAO (' eeeeeeeo @ @ @ @£35=—©ceeesece2n2 8 8=—ae eo eee ‘ . 
JF ROT, .QUEVE_FLAGSCOUISV_QUEUE_BATCH] THEN FAO_(* <---=- "); 
END;~ ‘ 


IF_ INTERVENING JOBS NEQ 0 
THEN 


BEGIN 
FAO_(' C!UL totereaning job!3s".. . INTERVENING_JOBS) ; 
IF INTERVENING BLOCKS NE 

THEN FAO_(* containing !UL block!%S", .INTERVENING_BLOCKS); 
FAOL_(°)"); 


IF NOT .JOB_STATUSCOUISV_JOB_ INACCESSIBLE] 

BEGIN 

IF .JOB_NAME_LENGTH GTRU 15 

THEN 
BEGIN 
FAOL_(* !'AF*, .JOB_NAME_LENGTH, JOB_NAME); 
AQT! 1178 "): 

ELSE 
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> 246 43) 9 BEGIN 

: 266 43 FAO_(* !15AF*, .JOB_NAME_LENGTH, JOB_NAME); 

3 rt r ? END; 
i 3638 435 4 FAQ" I 12AF", USERNAME LENGTH, USERNAME); | 
; ret " ; ELSE GIN 

> 26 $ 4 5 FAO_(" no sits sc. ") 

: $e rr Fao. te isuL’ 

3 26 5 ate IF ROT jeugue _ftAgstayisy seuéut BATCH) 

> 3461 444 

i 346¢ 445 

3 rot ree | if - JOB_STATUSCQUISV_JOB_ABORTING] 

; 465 448 FAO_(" Aborting') 

: $cee 450 

: 468 431 ELSE IF .JOB_STATUSCOUISV,JOB_EXECUTING] 

3 2470 rt a BEGIN 

: 347) 434 4 Toei ve FLAGSCQUI$V_QUEUE_BATCH) 

3 247 456 4 FAO_(* | Executing?) | 
> 2474 457 4 ELSE IF Couette war tit CQUISV_QUEUE_SERVER] 

> 2475 458 4 THEN 

3 rte | +23 ? aoe’ (" Processing') 

> 2478 461 5 EGIN 

3: 2479 348 FAO_(" Printin mE 

> 2480 46 IF 7JOB COPIES GTRU 1 

> 2481 464 THEN FAQ_(' Job copy !UL', .JOB_COPIES_DONE + 1); 

> 248 465 4 ; 

i 2685 466 4 END 

3 2485 468 4 

; ty, my 4 ELSE IF .JOB_STATUSCQUISV_JOB_HOLDING] | 
; 488 47) FAO_(* Holding") | 
3 2490 47 
3; 349 47 ELSE IF .JOB_STATUSCOUISV, JOB_REFUSED] 

: 249 476 4 N 

> 3494 477 4 FAO_(*  Uaitings); | 
> 2495 478 4 IF TREFUSAL_REASON_LENGTH NEQ 0 

3 38 479 4 THEN 

3 249 480 BEGIN 

> 2498 481 IF .COMPLETED_BLOCKS NEQ 0 

: $386 “a8 cong 

; 2501 484 6 FAQ.(* at block !UL*, .COMPLETED BLOCKS); | 
i 3508 485 COMPLETE D_BLOCKS = 0: | 
> 2504 4 EOL(); | 
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: 2505 488 5 FAO_(" 'AF', .REFUSAL_REASON_LENGTH, REFUSAL_REASON) ; : 
3 250: 489 4 END? | 
: 9 490 4 END 
3 8 491 4 
3; 2509 492 4 | 
3 2510 49 ; ELSE IF .JOB_STATUSCQUI$V_JOB_RETAINED) 
3 2511 494 THEN 
: 21g 495 4 GIN 
; 251 496 4 FAO_(' Completed’): 
; 2514 497 4 IF [CONDITION VECTORCO) NEQ 0 | 
: 2515 498 4 AND NOT .CONDITION_VECTOR(O) | 
: 216 499 4 THEN 
: 251 500 2 BEGIN | 
: 2518 501 INCR I FROM 0 TO 2 DO 
: 2519 30¢ 6 N | 
: 2520 503 6 IF .CONDITION_VECTORC.1] NEQ 0 | 
3 2521 2504 6 THEN 
: 2322 505 7 BEGIN | 
3 252 306 7 OCAL 
3 2524 507 7 MESSAGE _DESC: vecToRc2} 
; $325 308 , MESSAGE: VECTOR 132,BYTE); 
: 5258 2310 7 MESSAGE_DESCLO] = X%ALLOCATION(MESSAGE); | 
3 2528 511 7 MESSAGE_DESCL1] = MESSAGE; | 
3 33¢9 Pp 331g 7 SGETMSGT 
: 2530 P 2513 7 MSGID=. CONDITION VECTORC.1), 
: 3331 P 2514 7 MSGLEN=MESSAGE_DESC, | 
3 332 P 9315 7 BUF ADR=MESSAGE DESC, 
3 25 516 7 FLAGS=%B'1111'); | 
> 2534 517 7 IF .1 NEQ 0 THEN MESSAGELO) = XC'-'; 
> 2535 518 7 IF .COMPLETED_BLOCKS NEQ 0 | 
3 2536 519 7 THEN | 
: 2537 520 8 BEGIN | 
; 2538 $3 1 8 FA (* at block !UL', .COMPLETED_BLOCKS); 
> 2539 5 é 8 COMPLETED_BLOCKS = 0; 
3 3940 5 END: 
+ 2541 524 7 EOL_(); | 
: 34¢ P 2525 7 FAO~(' 'AF* 
> 254 326 7 -MESSAGE_DESCCOJ, .MESSAGE_DESCL1)); 
+ 2544 5 § ND; 
3: 2545 528 END; 
+ 2546 529 4 END; 
: 2547 5 4 END 
3 348 531 4 
+ 254 5 ; 4 | 
: 330 3 ELSE IF .JOB_STATUSCQUIS$V_JOB_STARTING} 
; 33¢ 535 FAO_(" Starting’) 
: $327 3 
: 2555 5 8 ELSE IF .JOB_STATUSCQUIS$V_JOB_TIMED) 
: 228 5 THEN 
: 255 sf FAO_(* Holding until !17%D", AFTER_TIME) 
3 238 $g 
3 2560 54 ELSE 
; 2561 544 FAO_(" Pending"); 
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SRC JQUEMANS (18) | 


IF COMPLETED_BLOCKS NEQ 0 | 
FAO_(" at block !UL', .COMPLETED_BLOCKS); 


EOL_(); 
FLAGSCV_TRUNCATE) = FALSE; 
iF uot - JOB_STATUSCQUIS$V_JOB_ INACCESSIBLE] 


BEGIN 
IF_.FLAGSCV_FULLI 
THEN 


BEGIN 
FLAGS(B_LEFT MARGIN] = 4; 
FLAGSCB-PENDING_SPACES) = 4; 
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26g 2 
564 5 
2565 § | 
566 5 FAO_ ("Submitted !17%D', SUBMISSION_TIME); | 
567 5 FLAGSCB_PENDING_SPACES) = 1; 
: 2585 568 5 | 
; 2586 2569 5 | 
> 2587 2570 5 IF NOT .QUEUE_FLAGSCQUISV_QUEUE_BATCH] 
: 2588 571 5 THEN 
: 2589 5 : é BEGIN | 
: 2590 573 6 IF .JOB_FLAGSCQUISV_JOB_FILE_BURST_EXPJ 
: 391 574 g THEN | 
: 292 575 BEGIN 
: 259 576 7 IF .JOB FLAGSCQUISV_JOB_FILE_BURST) 
: 259% 2577 7 THEN FAO_('/BURST') 
: 2595 578 7 ELSE IF .JOBTFLAGSCQUISV_JOB_FILE_BURST_ONE] 
> 2596 579 7 THEN FAO” ('/BURST=ONE' ) 
: 2597 580 7 ELSE FAO~("/NOBURST'); | 
: 2598 25 1 7 FLAGSCB_PENDING_SPACES] = 1; 
: 2599 5 é é END; | 
> 2600 5 2 END; | 
: $803 A | 
: 605 3 6 é FORMAT_CHARACTERISTICS (CHARACTERISTICS); | 
> 2605 588 ; 
: 606 589 IF .QUEUE_FLAGSCQUI$V_QUEUE_BATCH) 
: 260 590 5 THEN | 
> 2608 591 6 BEGIN 
609 298 6 IF .CLI_LENGTH NEQ 0 
610 29 6 THEN 
611 94 
6g 595 7 FAO_("/CLIS!AF", .CLI LENGTH, CLI); | 
61 296 7 FLAGSCB_PENDING SPACES) = 1; 
614 597 6 END; 
615 298 6 | 
616 6 | 
61 600 6 IF .JOB_FLAGSCQUI$V_JOB_CPU_LIMIT) 
2618 601 6 THEN 
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: 261 6 FORMAT_CPU_TIME( 

i $8 608 é UPCIT BYTE. CRASCIC *CPU'), 

> 2601 604 6 ~CPU_LIMIT); 

Be BB 8 

+ 2626 607 6 IF NOT .JOB_FLAGSCQUI$V_JOB_LOG_DELETE) 

3 2625 608 $ THEN 

3 26 $ 609 BEGIN 

: 26 610 7 FAO (° (KEE) 

3 2628 611 7 FLAGSCB_PENDING_SPACES) = 1; 

3: 2629 ol¢ 6 END; 

3; 2650 61 ° 

: 2631 614 

: 26 ¢ 615 6 IF_.JOB_FLAGSCQUI$V_JOB_LOG_NULLJ 

3 26 616 : THEN 

: 26 61 

3 2635 618 7 FAO ('/NOLOG'); 

3 26 619 7 FLAGSCB_PENDING_SPACES) = 1; 

3; 2637 sost 6 END; 

3; 2638 621 6 

: 2639 6 : 6 

3 2640 623 6 IF .LOG_SPECIFICATION_LENGTH NEQ 0 

> 2641 624 6 THEN 

: be 625 7 BEGIN 

3 264 Pp 626 7 FAO_("/LOG=!AF 

+ 2644 627 7 :106 SPECIFICATION_LENGTH, LOG_SPECIFICATION); 

> 2645 36 8 7 FLAGSCB_PENDING_SPACES] = 1; 

3 2646 629 6 END; | 
: 2647 2630 6 END 
+ 2648 3631 5 ELSE 
> 2649 63¢ ot 

: 2650 2633 6 IF .JOB_FLAGSCQUISV_JOB_FILE_FLAG_EXP) 
: 2651 634 § THEN 

; 638 635 

> 265 636 7 IF .JOB_FLAGSCQUISV_JOB_FILE_FLAG) 
> 2654 637 7 HEN FAO_("/FLAG') 
3 2655 638 7 ELSE IF .JOB-FLAGSCQUI$SV_JOB_FILE_FLAG_ONEJ 

; 696 639 7 THEN FAO” ("/FLAG=ONE") 

> 265 640 7 ELSE FAO” ("/NOFLAG'); 

> 2658 641 7 FLAGSCB_PENDING_SPACES) = 1; 

3: 2659 o6 6 END; 

: 2660 643 6 

3 2661 644 6 

; 66¢ 645 6 IF .JOB_FLAGSCQUI$V_JOB_FILE_PAGINATE_EXP) 

> 266 646 $ THEN 

3 2664 64 BEGIN 

+ 2665 648 7 IF .JOB_FLAGSCQUISV_JOB_FILE_PAGINATE) 

3 666 649 7 THER FAO_("/FEED') 

3 266 650 7 ELSE FAO” ("/NOFEED"); 

3 2668 651 7 FLAGSCB_PENDING_SPACES) = 1; 

+ 2669 63¢ 5 END; 

3; 2670 653 6 

: 2671 654 6 

; ore 655 6 FAO_("/FORM=!AF*, .FORM_NAME_LENGTH, FORM_NAME); 

> 267 696 © FLAGS(B_PENDING_SPACES]~= 1; 

3: 2674 6 6 

: 2675 658 6 
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FAO 
FLAGSCB. PERDING_SPACES) 
IF .JOB_FLAGSCQUISV_JOB_LOWERCASE) 
THEN 
FAO_("/LOWER'): 
FLAGSCB_PENDING_ SPACES) = 1; 


IF_.NOTE_LENGTH NEQ 0 
THEN 


TE=""!AF*"*, ,NOTE_LENGTH, NOTE); 


FAO_("/NO 7 
FLAGSCB_PENDING_ SPACES) ="1; 
END; 

END; 


IF .J08_FLAGSCQUISV_JOB_NOTIFY) 
THEN 


BEGIN 
FAQ. (*/NOTIFY*); 
FLASS(B_PENDING SPACES) = 1; 


IF NOT .QUEUE_FLAGSCQUISV_QUEUE BATCH] 


BEGIN 
—<.—e REQUEST_LENGTH NEQ 0 


BEGIN 
FAO_(° el ai 

ERATOR REQUEST CENGTH, 
Bees B PENDING. SPACES) = 1; 


FORMAT _PARAM ERs s 
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IF QUEUE _FLAGSCOUISV_QUEUE BATCH] 
BEGIN 
IF NOT .JOB_FLAGSCOUISV, JOB_LOG_sPOOL 


BEGIN 
FAO_("/NOPRINT 
FLAGS(B. CEN ING épaces) =1; 


IF .LOG_QUEUE_LENGTH NEQ 0 

MNaecin 
FAO_(*/PRINT=!AF° LOG_a QuEvE _LENGTH, LOG_QUEUE); 
FLAGSEB. PENDING_SPAC 

END; 


FAO_(*/PRIO=!UL' PRIORITY) d; 
FLAGSCB_PENDING_ SPACES] = 
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BEGIN 
IF J08_ FLAGSCQUISV_JOB_RESTART) 


BEGIN 
FAO _("/RESTAR 
FLAGS(B_ BENDING.  tpaces) = 1; 


IF .CHECKPOINT_DATA_LENGTH NEQ 0 
THEN 


BEGIN 
FAO_ pra jad VALUE=""!AF'"*, 

gE C OIRT_DATA LENGTH, CHECKPOINT_DATA); 
ses 8 SENDING? “SPACES 


IF .JOB_FLAGSCQUISV_JOB_WSDEF AULT) 


FORMAT_WORKING “tik ( 
uPCIT BYTE (ZASCIC “WSDEFAULT'), 
-WSDEFAUL 
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FORMAT WORKING _S 
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oWSEXTENT 
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BEGIN 
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GIN 
(* /NORESTART") 
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7 
MANSHO SHOW QUEUE command tose -1984 71 AX-11 Bliss-32 V4.0-74 Pa 
vOL~000 ak Saat i et a oat ee bg Pe oe itt if 
4c 655 f 3D OF 49 i i F 18E3 P.AHA: .ASCII <9>\/PRIO=!UL\ : 
4 41 54 4 F 18ED P.AHB: ASCII <8>\/RESTART\ : 
3 45 5S 4C 41 56 5F 3 41 5 33 4 é Fo P.AHC: .ASCII <19>\RESTART_VALUE=""!AF'\ : 
54 4C 55 41 46 45 46 7 190A P.AHD: .ASCII <> \WSDEFAULT\ : | 
54 af 45 54 45 7 : 1914 P.AHE: .ASCII <B> \WSEXTENT\ : 
4 24 iF 51 7 1 1p P.AHF: ASCII <7>\WSQUOTA : 
54 52 41 54 53 45 iF df F OA 01925 P.AHG: ASCII <]O>\7NORE START\ : | 
28 43 at 49 4 28 3 F 08 1930 B-AHH: sASCII <8>\/TRAILER\ : 
45 4E 4F 30 45 4C 49 41 4 OF OC 01939 P.AHI: <ASCII < STRATE EREONE\ : 
52 45 4C 49 41 52 54 GF 4E 2F OA 01946 P.AHJ: <ASCII <10>\/NOTRAILER\ : | 
.EXTRN SYSSGETMSG 
O7FC 00000 SHOW_JOBS: | 
.WORD Save R2,R3,R4,R5,R6,R7,RB,.RI,-R10 : 2089 | 
5A 000V CF 9E 0000 MOVAB L, R10 ; 
9 000' CF 9€ 0000 MOVAB FLAGS+7, R9 ; 
58 000v CF 9€ 0000C MOVAB : 
57 EF59 CF 9E 00011 MOVAB FORMAT_WORKING_SET, R7 : 
SE EF58 ce 9E 00016 MOVAB -4264(SP), SP ; 
0088 (CE 02 00 00018 MOVL #2 SEARCH. FLAGS ; 3182 
FCF? CF 9F 00020 PUSHAB W : 218 
LL . N : 
000000006 09 i FB 90 4 CALLS ‘0 ISPRESENT 
0088 CE gi 8 000 B1SB2 SEARCH_FLAGS + 2184 
6 D4 00033 1S: CLRL i} I + 2185 
FE4O CD 004C0004 8F DO 000 MOVL #4980740. LST + 2190 
FE4G 6s CD 0 CE 9E 000 : MOVAB SEARC n FLAGS TIMLsT+4 ; 198 
FES CD 04 0004 CLRL dT t 1? : 219 
FE4C CD 00020 9 8F D0 00049 MOVL #13 80 ITMLST+ 12 + 2195 
FESO CD FE CD 9E 00058 MOVAB AFTER ME, ITMLST+16 : 2197 
FE54 cD D4 0005 CLRL TH ST* : 2198 
FES8 CD 000A0004 &8F D0 0005p MOVL bos 64, ITMLST+24 : 2200 
FESC §= CD FCF4 CD 9E o9 66 MOVAB COMPLET ETE “BLOCKS, ITMLST+#28 : 08 
FE60 CD 04 0006D CLRL sd mists + 220 
FE64 CD 000B000C &F DO d0071 MOVL 72 908, ITMLST+36 : 2205 
FE68 (CD FCES CD E DO07A MOVAB CONDITION_VECTOR, ITMLST+40 3 2207 
FE6C cD D4 00081 CLRL ies 1944" : 
FE70 CD OO0F0004 &F pd 0085 MOVL #983044, ITMLST+48 : 221 
FE74 CD FCEO cD ¥E ROVAB EN NTRY ER, ITMLST+52 : ' 
FE7C CD 00250004 SF 0 10099 MOVL poms see ITMLST+60 : 221 
FEBO CD FC cD ; Ng MOVAB INTERVENING BLOCKS, ITMLST+64 + 221 
F D D A CLRL IML STs > 2018 | 
Fess CD 00260 F DO OOOAD MOVL #2490372, ITMLST+72 : 
FE8C = CD F CBA CD : MOVAB INTERVENING JOBS, ITMLST+76 3 
F D D CLRL IMLS T +8 : 
FE94 CD 00270 F DO MOVL #2555908, ITMLST+84 ; 
FE9B «= CD FCBO CD MOVAB JOB COP gS. 1TMLST+88 ; 
F D D CLRL =: ITMCST+ : 
FEAO CD 00290 F pO MOVL #2686980, ITMLST+96 ; 
FEAG CD FCAC CD é MOV JOB copie “DONE, ITMLST+100 ; 
FEA D D CLRL OT Is : 
FEAC CD 002A F 00 VL #2752516 ITMLST +108 F 
FEBO CD FCAB CD é V JOB FLA 6S, ITMLST#112 F 
FE CD D CLRL ~—_ I TMCS ; | 
| 
| 


i, _ , 


j 
MANSHO SHOW QUEVE command 6-8 -1 :18: AX-11 Bliss-32 V4.0-74 Pa 7) 
wOee008 -§ aa Fi 90:38:28 CLIUTL. SRC auemanéyo 682; cadet +f 
FEBB CD 0020027 MOVL #2883623, ITMLST+120 : 226 | 
FEBC «CD FCBO MOVAB JOB_NAME, TH T+126 + 326 
FECO 36 CD F : MOVAB 498 “LENGTH MLST+128 + 326 
FEC CD O02E 9 MOVL #3014660; ITAL sts + 326 
FECB = CD Fe 8 ROVAB ‘ tito TMLST+1 : 7 
FEDO §6 CD 00310094 MOVL #521126 , ITMLST+144 + 225 
FED4 = CD FC74 MOVAB JOBS Tus. ITMLST#148 : 225 
FEDS CLRL Lratst] 3 225 
FED CD 004800FF MOVL #4718847, ITMLST+156 + 225 
FEEO 6 CD CO MOVAB REFUSAL_REASON, ITMLST+160 + 2257 
FEEG = CD MOVAB OR USA, REASON LEN TH, ITMLST+164 + 2258 
FEE8 CD 0051000C MOVL #5308428, ITMLST+1 3 226 
FEE CD AG MOVAB USERNAME, ITMLST+1 + 226 
FEFO CD ne MOVAB USERNAME LENGTH, ITMLST+176 + 226 
FEF CLRL = ITMLST+18 3 2265 
03 Fo «sad BBs a. FLAGS, 2$ + 2268 
FEFS CD 00070010 MOVL #458768, ITMLST+180 t 2271 
FEF8 CD FE2 MOVAB CHARACTERISTICS, ITMLST+184 + 2273 
Fer CLRL IMLS + 227% 
FFOO CD OO0OB800FF MOVL #524543, ITMLST+192 3 2276 
FFO4 = CD FD28 MOVAB CHECKPOINT_DATA, ITMLST+196 : 2278 
FFO8 CD FD : MOVAB CHECKPOINT DATA LENGTH, ITMLST+200 + 2279 
FFOC CD 000900 MOVL #589863, ITMLST?204 3 2281 
FFIO. «= CD FCFC MOVAB CLI, ITMLST+ 3 2283 
FF14 «CD FCFA MOVAB cul LENGTH ITMLST#212 3 2284 
FFI8 CD 00000004 mMOVL #857972, IfTMLST? 1g 3 2286 
FFIC CD FCE4 MOVAB CPU LIMIT, ITMLST+220 + 2288 
FF 20 CLRL ITAEST* 24 3 2289 
FF24 CD OO1FOOTF MOVL #203164 ITMLST +22 : 2291 
fest ch OREBE MOVAB  FORRCNAME LENCTA. ITALST#236 : $533 
FF § CD 0034099) MOVL pc07911 ~TTMLST#240 3 36 
FF34 © «CD FC4C MOVAB LOG_QUEUE, ITMLST+244 + 229 
FF38 = CD FCA MOVAB LOG QUEVE LENGTH, TMLST+#248 + 2299 
FF3C © CD OO3500FF MOVL #3473 ITMLST#+2 : 2301 
FF40 «CD FB48 MOVAB LOG_SPECIFICATION, ITMLST+256 ; 2303 
FF44 CD FB46 MOVAB L0G sp IFICATION LENGTH, ITMLST+#260 3 2304 
FF48 CD O03600FF MOVL #35391 ITM ST+2 ; 06 
FFAG CD FAG4 MOVAB NOTE, ITALST+268 ; 
FF CD FAG2 MOVAB NOTE , NGTH iTML$T#272 ; 
FF54 CD OO3700FF MOVL #3604735, IfMLST#+276 : 
FF58 = CD F940 MOVAB OPERATOR_REQUEST. ITMLST+280 ; 
FF f CD F93E MOVAB OP Ral “REQUEST , NGTH, ITMLST+284 : 
FF60 CD OO3A00FF MOVL #3801343 {TAL STs 8 ; 
' BF64 CD F i MOVAB PARAMETER_1, ITMLST+292 F 
FF68 CD F MOVAB PARANE TER=! LENGTH, ITMLST+#+296 ; 
FEGC CD 003B00FF MOVL #386687 $1+360 ; 
FF ra) £0 MOVAB PARAMETER_2, ITMLST+3 ; 
FF74 «CD 7DE MOVAB PARANE TER LENGTH, ITMLST+308 ; 
FF78 CD OO3COOFF MOVL #393241 $1+312 : 
FF7C = CD DC MOVAB PARAMETER_3, ITMLST#+316 ; 
0 AD DA MOVAB PARAM TER. LENGTH, ITMLST+#320 ; 
AD OO3DO00FF MOVL #3997 } $1+306 : 
8 AD D8 MOVAB PARAMETER. . ITMLST+328 ; 
C AD D MOVAB PARAMETERT4 LENGTH, ITMLST#332 : 


k 7 | 
MANSHO SHOW QUEUE command 16-Sep-1984 00:18: AX-11 Bliss-32 v4.0-74 P 
tact eae rR eS BC nt ihe hg Bi eT Ne Ee age 488 
90 AD OOSEQOFF 8F 00 7 MOVL #4063487, ITMLST+336 : 
94 404 CE 9E f MOVAB PARAMETER_S, ITM ST +340 : 
98 AD 402 AS MOVAB PARAMETER-5_LENGTH, ITMLST+344 : 
9C AD OO3FOOFF MOVL #4129023, 1TMLST+348 : 
AO AD DO CE 9E 0028 MOVAB PARAMETER_6, ITMLST+352 3 
AG OAD CE ; B MOVAB PAR TER LENGTH, ITMLST+356 ; 
AS AD OOGOOOFF &F BF MOVL #4194559, I1TMLST+36 ; 
AC AD CC 46CE (9E 00eCc7 MOVAB PARAMETER_7, ITAL ST +364 : 
BO AD CA CE ¢ MOVAB PA TER LENGTH, ITMLST+368 ; 
B4 AD OOG100FF 8F D MOVL #4260095, ITMLST+3 ; 
B8 AD C8 «CE SE 002DB MOVAB PARAMETER_8, ITMLST*376 : 
BC AD 1 6 E E1 MOVAB PARAMETER LENGTH, ITMLST+380 ; 
CO AD 004200 F 2 £7 MOVL #4325380, ITAL ST + 384 : 
(4 «AD 01c0 «CE E O2EF MOVAB PRIORITY. ITMLST+388 ; 
AD D F5 CLRL oO sts $2 : 
CC AD 004F00 8F DO O02F8 MOVL #5177352, ITMLST+396 : 
DO «AD 0080 CE 9€ 00300 MOVAB SUBMISSION_TIME, ITMLST+400 ; 
D4 AD 04 00 06 CLRL IMLS T +4 4 : 
D8 AD 00520004 8F DO 0030 MOVL #5373956, ITMLST+408 ; 
DC AD 009¢ CE 9E 00311 v WSDEFAULT, ITMLST+412 : 
6 AD D4 00317 CLRL 1TmysTsaié : 
E4 AD 00530004 8F DO OO31A MOVL #5439492, ITMLST+420 : 
£8 AD 0098 CE 9€ 00 MOVAB WSEXTENT. ITMLST+424 : 
C AD 04 00 CLRL  ITMLST+ ; 
FO AD 00540006 8F 00 00 MOVL #550 028, ITMLST+432 ; 
F4 OAD 00 CE 9E 00 8 MOVAB WSQUOTA, ITMLST+436 : 
AD 7C 00339 CLRQ  ITMLST+44 ; 
54 04 ac 01 00 EF 0033C 3$ EXTZV #0, #1, QUEUE_FLAGS, R4 : 
55 54 D2 00 4g MC 4, RS : 
009% CE OF boa? SUSHAB rae ; 
FEGO CD 9F 00348 PUS ITMLST ; 
a ee ne hg : 
000000006 - FB 00354 CALLS #7, SYSS$GETQUIW : 
9 DO 00358 MOVL RO, STATUS : 
05 53 £9 0035E BLBC STATUS, 5$ ; 
53 008c cE D0 0361 MOVL  10SB, §TATUS : 
01 é : 0 66 5$ BLBS STATUS, 6$ : 
Fo soa 04 : 036A 6$ BISB2 #4, FLAGS ; 
38 56 00 0 GS #0, JOB_PRINTED, 9$ ; 
FOAD CF OF P.AEY : 
8 01 FB 1 CALLS #1, FAO ; 
04 AC 3 7 BLBS § QUEUE_FLAGS, 7$ ; 
FOC? «CF OSF 00370 PUSHAB P.AEZ : 
68 01 FB 1 CALLS #1, FAO ; 
FOC «CCRC 7$ PUSHAB P.AFA : 
68 1 FB CALLS #i, FAO ; 
6A 0 FB CALLS #0. EOL : 
F9CB.«COCECCOSF PUSHAB P.AFB : 
8 tS CALLS @#i, FAO : 
90h AE EB 0089 BLBS QUEUE _FLAGS, 8$ : 
68 61 F8 CALLS #1, FAO : 
FOES cf 9F OO3A0 8S: PUSHAB P.AFD F 
68 1 FB O03A4 CALLS #1, FAO ; 


7 
MANSHO SHOW QUEUE command 1b-se -1984 00:18:0 AX-11 Bliss-32 V4.0-74 
WOee008 1 ~300n 138% et Be CLIUTL.SRC JQUEMANSHO.B 2:1 
6A 00 F A? CALLS #0, E0 
FCB4 gp 08 AA 9$ iste INfERVENING, 08s 
FCB4 «= CD pd a5 PUSHL INTERVENING_JOBS 
F9D9 cf F 00384 PUSHAB P.AFE 
68 2 F BB CALLS #2, FAO 
FCB8 cb : 38 TSTL INFERVENING_BLOCKS 
BF BEQL 0$ 
FcB8 = CD pd C PUSHL. INTERVENING_BLOCKS 
FSE4 cr F 003¢ PUSHAB P.AF 
68 2 FB 003¢ CALLS #2, FAO 
FOF6 CF OF OO3CC 10$: PUSHAB P.AF 
68 1 FB 0030 CALLS #1, FAO 
6A 9 rB D CALLS #9, EOL 
45 FC74 CD E D6.11$:  &8BS #3. JOB STATUS, 14$ 
OF FC7E CD 81 DC MPW © JOB_NAME_LENGTH, #15 
FC80 is P 0 ES nae JOB _NAME 
7E FC : CD 3 O3E MOVZWL JOB-NAME_LENGTH, =(SP) 
F9D8 «CE OOF O03 PUSHAB P.AFH 
68 03 FB O03F CALLS #3, FAO 
6A 0 FB 003F CALLS #0. EOL 
F9D4 «=CECCOSF:«003FS PUSHAB P.AFI 
68 01 FB OO3FA CALLS #1, FAO 
10 11 O03FD BRB 13§ 
FC8O «CD «OF OO3FF 12$:  PUSHAB JOB_NAME 
7E FC E CD 3¢ 0403 MOVZWL JOB"NAME_LENGTH, -(SP) 
FOCB «OCF OOF 00408 PUSHAB P.AFJ 
68 03 FB o40¢ CALLS #3, FAO 
00AS CE 9F O040F 13$:  PUSHAB USERNAME 
7E 00A6 CE 3¢ 0413 MOVZWL USERNAME_LENGTH, -(SP) 
F9CO «OCF OOF 0041 PUSHAB P.AFK 
68 03 FB o4ic CALLS #3, FAO 
07 11 O041F BRB 15§ 
FOBE CF 9F 00421 14$:  PUSHAB P.AFL 
68 01 FB 00425 CALLS #1, FAO 
FCEO CD pp 0428 15$:  PUSHL ENTRY_NUMBER 
FOC? «= CF OOF (004 PUSHAB P.AFM 
68 9@ FB 4 CALLS ae. FAO 
0B ES 004 BLBC 3=E_«aRS «16S 
FC78 »= CD Bp 4 PUSHL JOB SIZE 
F OBF cr F 0043A PUSHAB P.AFN 
68 2 FB é CALLS #2, FAO 
06 ECTS CD 16$ BLBC JOB_STATUS, 17S 
it 8: ame bdr 
2F FC74 cp 1 €1.0044C 17$: BBC “1, 40B_STATUS, 208 
4 34 BLBC =«_«aRA «18S 
“oth Be ame bid? 
06 09 «aC 1 €1 18$ BBC #1, QUEUE_STATUS+1, 19S 
F9B7 cf F PUSHAB P.AFQ 
5 11 BRB 2i$ 
F OBE cf OF 19% PUSHAB P.AFR 
Sf cao tb bt O0ceD eA 
go 8 cm, atte 
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7E FCAC CD 01 1 00474 ADDL3. #1, JOB_COPIES_DONE, -(SP) 
F9BS CF SF O047A PUSHAB B kes 
0000 1 0047 BRW 38 
07 FC74 CD et i 4 i 208: BBC 4 jp POB-STATUS. 228 
0009 31 00488 21$: 38$ 
37 FC74 CD sy gl 4 E gy: BBC #4, JOB_STATUS, 25$ 
68 61 FB 00498 CALLS #i, FAO 
00BE E Q 498 ist REFUSAL_REASON_LENGTH 
FCF : p 04a} Ist COMPLETED_BLOCKS 
FCF4 CD pd bea? PUSHL COMPLETED_BLOCKS 
FSA6 cr F 004AB PUSHAB P.AFV 
68 2 FB OO4AF CALLS #2, FAO 
FCF4 CD 04 00482 CLRL. COMPLETED_BLOCKS 
- 00¢ Cr oF tt3 - SUSnAB REFUSAL_REAS 
7E 00c2 CE He 0048p MOVZWL REFUSAL “REASON. LENGTH, -(SP) 
68 Sieg 5 Ha boce CALS” 3 of 
78 (11 Bek8 248: BRB 
FC74 cD 95 004CB 25$ TSTB _STATUS 
4 18 OO4CF BGEQ 
oe OSE PB Oocbs CALLS. #1, FAO 
FCE8 CD fe bocb8 TSTL EAD TION, VECTOR 
oo8§ Hf SRE 2 BS gt 
78 FCES cp Ee Geet 27$ BLBS CONDITION_VECTOR, 36$ 
FCE8 e043 D3 GOdEs 28$: iste CONDITION. VECTOREI) 
0084 CE 84 BF 9A OOGEF MOVZBL #132, MESSAGE_DESC 
0088 cE ae 9 O4F5 MOVAB ME aie DESC +4 
gs GE 3 Sue FURIE SEnGEst 
000000006 00 round coke ee 0303 CALS COND LT ON VEC yectort3 
at 
6E Fy 9 318 MOVE 43 MESSAGE 
FCF4 cD : 18 29S: TST LETED_BLOCKS 
FCF4 CD pd 1 PUSHL COMPLETED_BLOCKS 
F951 «CF OF PUSHAB P.A Ary 
68 6 FB CALLS #2, FAO 
me FCF4 cD D4 tie CLR ¢ PLETED_BLOCKS 
008 CE DD PUSHL mESSAG _DESC+4 
me Pua ep seeames 
sR ERR yg, ERG BB Lion 
1 43 $F: BRB 39° 
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MANSHO SHOW QUEUE command 16-Sep-1984 00:18: AxX-11 Bliss-32 V4.0-74 Page 91 
Wen O08 12-808-1 382 90: bbie8 CLIUTL.SRCJQUEMANSHO.B32;1 9° 18) 
06 FC75) «CD «£9 00545 33$: BLBC JOB_STATUS+1, 34$ : 2533 
SSF cr oF 4A PUSHAB P AGA : $232 
OD FC75 CD 01 €1 5 348: C 33 JOB_STATUS+1, 37$ : 2538 
FE38 CD OF 6 PUSHAB AF TER_TIME + 2540 
FSSA CF OOF A PUSHAB P.A ; 
68 z re S$: CALLS ae FAO : 
1 $:  6RB 39§ ; 
F947 cr OF $:  PUSHAB P.AGC + 2544 
68 1 Ff $: CALLS #i, FAO : 
FCF4 CD OD 6A 39$:  TSTL  COMPLETED_BLOCKS : 2547 
0B 1 of BEQL = 4 : 
FCF4 CD pd PUSHL  COMPLETED_BLOCKS + 2549 
F940 CF 9F 00574 PUSHAB P.AGD ; 
68 2 FB 378 CALLS #2, FAO ; 
6A FB 0057B 40$ CALLS #0, : 255 
F9 AD 4 BA 057 BIC #4. FLAGS + 255 
03 FC74 CD 03 ¥ 58 BBC #3, JOB_STATUS, 41$ + 2556 
0280 31 005 BRW : 
03 Fo soa 01 £0 0588 41$: BBS #1, FLAGS, 42% : 2559 
0298 31 0590 BRW 78$ : 
FD A 04 30 0593 42$: MOVB #4, FLAGS+4 F 356 
69 4 90 00597 MOVB #4. FLAGS+7 : 256 
00B0 CE 9F 0059A PUSHAB SUBMISSION_TIME : 2566 
F924 «CF OF 0059 PUSHAB P.A F 
68 02 FB 005A CALLS #2, FAO 3 
69 oi 90 005A MOVE #1, FLAGS+7 3 2567 
28 5 €9 005A8 BLBC ‘ + 2570 
22 FCA8 CD 03 €1 005aB BBC #3, JOB_FLAGS, 46$ + 2573 
06 FCA8 CD 01 Fl 0581 BBC #1, JOB-FLAGS. 43$ : 2576 
F91B «CF OSE 00587 PUSHAB P.AGF : 2577 
10 11 00588 RB 45$ F 
06 FCAS CD 02 EI 0580 43$ C #2, JOB_FLAGS, 44$ : 2578 
F916 «CFOS: «005C PUSHAB P.AGG : 2579 
04 11 005¢ RB 45$ : 
F9IB)«OCFOOF d05¢9 44$: PUS P. AGH + 2580 
68 1 FB OO5CD 45$: CALLS #i, ; 
69 1 90 005d MOVE = #1 7 : 2581 
FE28 CD 9F 005D3 468 PUSHAB CHARACTERISTICS : 2586 
FAG8 C7 01 FB 940 CALLS #1, FORMAT_CHARACTERISTICS ; 
64 4 €9 0050¢ BLBC = R4 ; 2589 
FCFA cD bs O50F TSTW CLI LENGTH : 2592 
13 13 005E BEQL 47$ : 
FCFC «6CD OOF 3 PUSHAB CLI : 2595 
7E FCFA CD 3C O05 MOVZWL CLI_LENGTH, -(SP) : 
FOFF CF OOF O05E PUSHAB P.AGI : | 
68 3 FB OOSF CALLS #3, FAO ; 
69 19 ot VB #1. FLAGS#7 + 2596 
D FCAS «CD E FB 47$ BLBC  JOB_FLAGS, 48$ ; 2600 
FCEG CD BD O5FD PUSHL CPUTLIMIT > 2604 
FRFS «CE OSE «006 PUSHAB P.AGJ : 2603 
FAB8 C7 g FB 605 CALLS aa FORMAT_CPU TIME ; 
OA FCA9 = CD f 60A 48$: BBS #2, JOB_FLAGS+T, 49$ > 2607 
FREA CF 9F 00610 PUSHAB P.AGK + 2610 
68 eB. 14 CALLS #i, FAO ; 
69 19 17 V #1. FLAGS+7 > 2611 
OA FCA9 CD 3 €1 0061A 49%: BBC #3. JOB FLAGS+1, 50$ : ri 
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FBEO CF 9F 00620 PUSHAB P.AGL : 2618. 
68 oi FB 006204 CALLS #1, FAO : 
6 1 90 00607 MOVE #1. FLAGS+7 : 619 
FB46 : ; 6 A50$:  TSTW ,06_SPECIF ICATION LENGTH + 2623) 
BNEQ } ; 
00A 6 BRW 63$ : 
FB48 = CD S«OOF 00638 51$:  PUSHAB LOG_SPECIFICATION : 2627) 
7E FB46 «CD83 «(006 MOVZWL LOG-SPECIFICATION_LENGTH, =(SP) : | 
F8CB cr F 0063C PUSHAB P.AGM : 
008F 31 O40 BRW 62$ 3 | 
“2 FCAB CD 06 £1 00643 52$: BBC #6, JOB_FLAGS, 56$ > 2633) 
6 FCA8 CD 04 FI 0649 BBC #4, JOB-FLAGS, 53$ : 2636. 
F8C1 CF SF 0064F PUSHAB P.AGN t 2637, 
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F940 CD 9F 006F1 PUSHAB OPERATOR_REQUEST : 2699 
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FLAGS[V TRUNCATE] = TRUE; 
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FLAGS(B“LEFT_MARGIN] = 8; 
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FLAGSCV_TRUNCATE) = FALSE; 


IF .FLAGSCV_FULLJ 
THEN 
BEGIN 
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BEGIN 
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BEGIN 
FAO_(*/COPIES='UL", .FILE_COPIES); 
FLAGSCB_PENDING, SPAcES} e-f° 

END; 
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FAO_( 
FLAGS(B_PENDING_ SPACES) = 1; 
ELSE 

FAO_(*/PAGES=('UL,'"")", .FIRST_PAGE); 


; FA 

3 301 4 

3 if 994 4 

3 \ 995 : 

3 15 399 BEGIN 

3 \$ eee FAO_(*/DELETE'); 

3 301 FLAGSCB_PENDING_SPACES] = 1; 

3; 3018 000 4 END; 

Bo BBS 

; 1 008 : Boy - QUEUE _FLAGSCQUISV_QUEVE_BATCH) 

3 3 g 005 BEGIN 

3; 3024 IF .FILE_FLAGSCQUISV_FILE_PAGINATE_ExP] 

3; 3025 00 THEN 

; 30 $ 008 6 BEGIN 

3 009 6 IF .FILE_FLAGSCQUISV_FILE_PAGINATE] 

; 3028 010 6 THEN” FAO_("/FEED®) 
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0 01 T } 
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: 303e th 3 THEN GIN 
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3; 3038 020 6 THEN FAO_(*°/FLAG*) 

: 3039 021 6 ebee FAO_(*/NOFLAG'); 

; L PENDING_ = 1; 
ot ° — B_PENDING SPACES] = 1 

3008 a26 

2 4 026 IF .FILE_FLAGSCQUISV_F ILE_PAGE_HEADER) 

: 30ce B58 8 THEN EGIN 

3 oe? 029 6 FAO_(*/HEADER'); 

3; 3048 030 FLAGSCB_PENDING_SPACES] = 1; 

5 9 o3) END; 

3; 3050 0 § 

3 51 0 

F} 36 4 ¢ IF .FIRST_PAGE NEQ 0 

; 3054 0 IF .LAST_PAGE NEQ 0 

3 3055 THEN 

3 2$ 3 6 BEGIN 

3; 305 ° A */PAGES=(!UL,'UL)*, .FIRST_PAGE, .LAST_PAGE); 

3 6 
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BEGIN 
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END; 

END; 
END; 
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01 8C AD ff 7 CMPL FILE COPIES. rt : 2952 | 
B 18 BLEG : | 
7E 88 AD 1 § ADDL3 #1, FILE_COPIES_DONE, -(SP) : 2954) 
65 2e 03 ore Oott Chets CSAP ; | 
38 A 9 18 7$: PUSHAB P.AHQ : 2955 
09 10 Ag 9 1p 8$: BL BC FILE STATUS. 10$ ; 3959 
65 iF 4 98: CALLS #i, FAO F | 
64 1 98 MOVB #1, FLAGS+7 3 3 | 
FQ AG 4 BA OO1ZA 108: BICB2 #4, FLAGS 3 2967 | 
03 9G “* | 59 iad BBS “, FLAGS, 12$ ; 2970 
29 aC 3) 128: BLBS QueUE FLAGS, 16$ > 2973 | 
12 84 AD oT €E A BBC wi, FILE FLAGS 15$ > 2976 | 
05 84 OCA +4 BLBC ~—- FILE FLAGS, 13$ : 29 
49 AS OF 0014 PUSHAB P.AHS : 2980 
03 11 0014 BRB 14$ : 
50 AS 9F 00148 13$:  PUSHAB P.AHT > 2981 
65 ot F 48 14$: CALLS @#i, FAO ; 
64 1 99 af MOVE #1. FLAGS#7 ; 
1 8C AD D 51 158:  CMPL FILE_COPIES, #1 : 


ore HO SHOW QUEUE command 1 -$e0-1984 99: 18:08 AX-11 tg ee V4.0-74 


14-Sep-1 CLIUTL.SRCJQUEMANSHO.B32;1 
0c 18 001 5 BLEQU 16$ 
8 A po 1 PUSHL FILE COPIES 
A F OO1SA PUSHAB P.AHO 
65 FB 001 CALLS #2, FAO 
64 90 001 VB #1, FLAGS+7 
09 84 AD ; ‘ 163 16$: BBC #2, FILE_FLAGS, 17$ 
65 AS SF 001 PUSHAB P.AHV 
65 o1 FB 00168 CALLS #1, FAO 
64 19 1¢¢ VB #1. FLAGS+7 
BE 04 aC £8 00171 17$:  BLBS QyeuE FLAGS, 11$ 
13 85 AD 9 E1 00175 BBC #3, FILE_FLAGS+1, 208 
05 5 AD 3 17A ¢ #1, FILETFLAGS+1, 18$ 
6D A oF V7 PUSHAB PAM 
73. AS 9F 00184 18$:  PUSHAB P.AHX 
65 1 fe 187 19$: CALLS #1, FAO 
64 1 90 OO018A VB #1. FLAGS+7 
14 84 AD 5 1 91 20$: BBC #5, FILE_FLAGS, 338 
05 84 AD 4 3 1 ¢ #4, FILETFLAGS, 21$ 
78 «=A3) SF 0019 PUSHAB P.AHY 
04 11 OO19A RB 22 
0081 C3 9F 0019C 21$: | PUSHAB P.AHZ 
65 01 FB O1AG 22$: CALLS #1, FAO 
64 01 90 OO1A VB #1. FLAGS+ 
OA a5 AD 69 O1A6 23S: LBC —« FILE_FLAGS+1, 24$ 
0089 C3 SF OO1AA PUSHAB P.AIA 
65 01 fe O1AE CALLS #1, FAO 
64 01 90 001B1 MOVE #1. FLAGS+7 
Oc AE 05 001B4 24$:  TSTL  FIRST_PAGE 
1D 13 00187 BEQL 26 
08 AE 05 00189 TSTL LAST _PAGE 
OF 13 001BC BEQL 5$ 
08 AE OD 001BE PUSHL LAST_PAGE 
10 AE DD 001C1 PUSHL FIRST_PAGE 
0091 C3 9F 001C4 PUSHAB 
65 03 FB 001C8 CALLS #3, FAO 
18 11 001¢B BRB 
0c AF DD O01CD 25$ PUSHL FIRST_PAGE 
OOA2 C3 9F 00100 PUSHAB P.AIC 
OC 11 00104 BRB 
08 AE 03 0106 26$ TSTL AST_PAGE 
0D 13 00109 BEQL 9$ 
08 A pd 1B PUSHL LAST_PAGE 
00B2 F 001D PUSHAB 
65 fe 1€2 27$: CALLS “ 
64 90 OO1ES 28$: MOVE #1. FLAGS#7 
OA 85 AD 0¢ 1 00168 29$: BBC #2, FILE_FLAGS+1, 30$ 
00aD F OO1ED PUSHAB P.AI 
5 1 FB OO1F1 CALLS ; 
4 1 1F4 MOVE #1. FLAGS#7 
O11A ce e 1F7 30$: STW FILE _SETUP_MODULES_LENGTH 
1B BEQL 
011C CE 9F O01FD PUSHAB FILE_SETUP_MODULES 
7E OIE CE 3¢ 1 MOVZWL FILE~SETUPTMODULES_LENGTH, =(SP) 
0c F PUSHAB P.AIF 
65 FB A CALLS #3, FAO 
64 1 9 0D VB #1, ~FLAGS#7 


Pee Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Ge Se Se Se Fe Fe Se Se Ge Se Fe Se Se Se Se Se Se Se Se Se Se Fe Fe Se Se Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


$$ S88 SN SE Fe & FS SES 8 BSS 3 SERRE SSS FS SB 


i 


ayenansno SNOW QUEUE connand HSr$eoc19He 00:28:05 Yancy OLieg=sz v4.0-742, | age 108 


A 4 A 1 1$: C FILE_FLAGS, 32$ : 3073 
. . . 00D3 C3 FF H ’ Br kuas P P at : 3073 
65 F 1 CALLS #i, FP : 
64 1 3 1¢ MOV #1, FLAGS+7 t 3077 
84 AD fF 32$: STB (E_FLAGS : 3081 
15 4 é BGEQ - 4 
06 84 AD 0 BBC #6, FILE_FLAGS, 33% + 3084 
OODA f F 9 PUSHAB P.AIH : 3085 
4 11 D RB § ; 
00E3 OF F 333: PUSHAB  P.AII + 3086 
65 i Ff 3 34$: CALLS #1, FAO ; 
64 1 3 0 MOVE #1, FLAGS+7 : 3087 
FD AG 35$: CLRB F LAGS+4 . ¢ 3093 
64 94 0023¢ CLRB FLAGS? + 3094 
0000v CF £00 re 00 i CALLS #0, ; 095 
04 00246 RET : $059 


3; Routine Size: 583 bytes, Routine Base: CODE + 228A 


Nn 8 
EMANSHO SHOW QUEUE command ; 16-Sep-1984 00:18:0 AX-11 Bliss-32 V4.0-74 P 
yOLe008 eH AR Ct bet rg Pete ee age 30) 


117 p38 ROUTINE FAO(CTRL,PARAM): NOVALUE= 
11 9 
‘BOR YI 
1 196 FUNCTIONAL DESCRIPTION: 
1 1 This routine interfaces to FAO to format information into the Line. 
1 ie Deferred blank Lines and spaces are written before the requested 
1 105 information, and unless truncation is in effect the requested 
1 1 information does not fit on the current Line, the information is placed 
: } on the next Line. 
1 1 INPUT PARAMETERS: 
1 1 CTRL - ASCIC control string 
; ’ PARAM... - Parameters required by the control string (if any) 
1 IMPLICIT INPUTS: 

NONE 

OUTPUT PARAMETERS: 
NONE 


WAG 


a ed eh nd od od 2d dd od od 


IMPLICIT OUTPUTS: 
Information formatted into the Line buffer. 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NOI S 


PNPM) 2 OOOO. 


SSS sss sss se se sessed 


AANA AAAI AWA AAAI AWW 


PAPAIN ES BEE REE EE PW 


ee a ae a a a ae a a ed ae cc a a a ae el ee ae ee ee oe oe od od 
oS 
w 

WAAWWNNAAI ANNAN NAIA N ANNAN AIANIW 


CTRL: REF VECTORC, BYTE); 
LOCAL 
OUTLEN: WORD 
DESC: VECTORC2), 
STATUS; 
WHILE .FLAGSCB_PENDING_LINES] NEQ 0 DO 
Hab 
FLAGSEB_PENDING_LINES3 = .FLAGSCB_PENDING_LINES) = 1; 


WN SO CONOUESWN (OOO NAUEWN OC OOVOAUE WN OVD OANIOULSWNO 


DESeEY] = cometia;" | 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 


FWD 9 OONOA UE WN 9 ODNAUS WN (OO OONAULSWN $ODONOUS WC ODN 


a ee ee et ee ed ed ed ed ed od ed od 
PUT & BS BB BEE EE PWN 


BEGIN 
Ar eit CAOSCE_PENDING_SPACES) GTRU .LIST_DESCLO) 
TRUE 


Be Se Be Se Be Se Ge Se Se Be Se Ge Be Se Ge Ge Fe Ge Ge Ge Se Se Se Se Se Se Fe Ge Se Sse Se Se Se Se Gs Ge Se Oe Oe Ge Se be Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ee 


9 
MANSHO SHOW QUEUE command 1b-se -1984 00:18:0 AX-11 Bliss-32 V4.0-74 Page 105 
voe-000 VenSep-1986 12:08:48 — et TuTe SReSOUEMANSHO.6$2;1 9° (20), 
: 317% 155 3 ELSE | 
: 3175 1 5 4 BEGIN | 
: 176 157 4 IF .FLAGSCB_PENDING SPACES] NEQ 0 
3; 317 1 3 4 THEN 
3 178 1 BEGIN 
: 31 160 LIST _pescto] = .LIST DESCCO) - sFLAGSEB PENDING. SPACES); 
; 180 161 ; LISTIDESC 1) = CHSFICL(ZC® *, .FLAGSCB_PENDING_SPACESJ, .LIST_DESCC1)); 
: 318 188 4 
: 31 164 4 | 
: 31 P 3165 4 STATUS = SFAOL( | 
> 3185 P 166 4 CTRSTR=DESC 
: 31 P 3167 4 OUTLEN=OUTLEN | 
: 187 P 3168 4 OUTBUF=LIST DESC, 
: 31 169 4 PRMLS = ; 
: 3189 170 4 .STATUS<0,16> EQL SS$_BUFFEROVF AND NOT .FLAGSCV_TRUNCATE] | 
> 3190 171 4 END 
: 3191 17 END 
: 198 17 THEN | 
; 319 174 BEGIN 
: 3194 175 EOL(); 
: 3195 176 List _bescto} = .LIST_DESCLO] = .FLAGSCB_LEFT_MARGINI: 
: 3196 177 LIST-DESCC1) = CHSFICL(ZC* *, .FLAGSCB CEFT_MARGINJ, .LIST_DESCC1)); 
: 3197 3178 SFAOLC(CTRSTR=DESC, OUTLEN=OUTLEN, OUTBOF=LIST_DESC, PRMLST=PARAM) ; 
: 3198 179 END; 
: 3199 180 
; 3200 181 
: 3201 182 FLAGSCB_PENDING_SPACES] = 0 | 
; 20¢ 18 : LIST_DESC 03 = “LIST _DES¢EO) - .OUTLEN;: 
; 320 3184 LIST“DESCC1] = .LISTTDESCCL1) + .OUTLEN: 
: 3204 185 1 END; 
| 
.EXTRN SYSS$FAOL | 
OOFC 00000 FAO: -WORD Save R2,R3,R4,R5,R6,R7 ; 3098 | 
$7 000600006 00 9 00008 MOVAB SYSSFAOL, R7 ; | 
6 0000° CF 9€ 000 MOV List_pest, R6 3 
5E 0c 0005 SUBL2 #12, 7SP : 
FE AG 0011 18: TSTB = FLAGS +6 ; 3139) 
OA 0014 BEQL = $$ ; 
0000v CF 00 Fe 0016 CALLS #0, EOL 3 3141, 
FE Ab 9 1B DECB = FLAGS #6 ; 143 
Fi 11 0001 BRB : 3139) 
04 AE 04 BC 9A 00020 28: MOVZBL CTRL, DESC : 3146 | 
08 AE 06 ac 1 1 00 ADDL3 #1, CTRL, DESC+4 3 3147, 
50 FF AG OA 8 MOVZBL FLAGS*7 RO : 3152 | 
6 0 01 F CMPL —s-RO.- LIST_DESC ; 
C 1A 2 BGTRU 4$ : | 
0 : 0 TSTL RO > 3157 
66 s SUBL Rd. LIST DESC : 3160 
20 fe . ee C movcS #0. (SP)T #32, RO, @LIST_DESC+4 : 3161) 
04 Ab 0 0004 MOVL 3, LIST_DESC+4 ; 
08 AC oF 3$: PUSHAB PARAM ~ : 3169 | 


ornate SHOW QUEVE command 
56 
98 i\3 
1 AE 
7 4 
0601 F 0 
29 BAG ; 
0000v gf 
0 FC 48 
$8 FC Hi 
50 20 6E 00 
04 88 
06 Ab 
08 AC 
56 
08 AE 
10 AE 
67 04 
FF A6 
50 6E 
66 50 
50 6E 
04 Ab 50 


3; Routine Size: 154 bytes, Routine Base: CODE + 24D1 


1h-sep-19 
1e-Sep-19 


49 


4$: 


5$: 


SOWOWONOOTOIT WOOO NMWMN—@W"oo7o 
FSOONMOFSL A * ONO OPMPWONM-WI "oO 


SOOCOCGCGOCOOCOOOOOOOOOOOOOOOoOo 


SoOoOoooooooooooooo 
SOOOOOCOCOOOCOoooOSooO 


BASTASSEASMSIIASA GAO OP MD 


Be 93g ees eee eth esasewknsto 282-1 


PUSHL R6 

PUSHAB OUTLEN 
Eee BES apse 
CMP Hanis W337 
BNEQ $ 

BBS a, FLAGS, 5$ 
CALLS # EOL 

HOvZBL Rect 

UBL LIsf Desc 
MOVZBL Fists +4,7 

vcS. #0, (SPS, #32, RO, @LIST_DESC+4 

MOVL 3, LIST_DESC+4 
PUSHAB PARAM 

PUSHL R6 

PUSHAB OUTLEN 

PUSHAB DESC 

CALLS #4, SYSSFAOL 
CLRB = FLAGS+7 
MOVZWL out LEN 

SUBL2 


RO, LIST, Osc 
L2. RO, LIST_DESC+4 


Page 106 
9° 20) 


osc 


it 


Wr 


w 


RIPQPIPYIPIPIPYNININININIPYNIPINININIPINININININIDD 2 9 OO OS SS 


RUN LS SOVAARGNASSSIVSAF WW LOSES MR UM ODe 


SHOW QUEUE command 16-5 


SRIF IRIFIFIJIPI/FIIII DAI nr a a a a a dd ed ot od od 


9 
3p 1be fosoeses Lek Ture $ReToueMANsyoBS2:1 


ROUTINE EOL: NOVALUE= 
'e4 


FUNCTIONAL DESCRIPTION: 
This routine writes the Listing buffer to the Listing file. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
The Listing is produced. 


BEGIN 
LOCAL 
DESC: VECTORE2); ! Descriptor for Line 
pescto] = .FLAGSCB RIGHT_MARGIN] - .LIST_DESCCOI; 
DESCC1) = LIST BUFFER; 
PUT OUTPUT (DESC); 
LIST_DESCLO) = .FLA 6stB RIGHT_MARGIN]; 
LIST"DESCC1) = LIST ER: 
CHSFTLL( HC" *, LIST eDESCEOD, .LIST_DESCL1)); 


Save R2,R3,R4,R5,R6 

LIST_DESC, R6 

#4, SP 

FLAGS+5, RO 

LIST_DESC, RO, DESC 

LISTBUFFER, bESC+4 

#1, PUT_OUTPUT 

FLAGS*5; LIST DESC 

List BUFFER, CIST DESC+4 

#0, TSP), #82, LIST_DESC, @LIST_DESC+4 


voe-000"" 


3; Routine Size: 


SHOW QUEUE command 


47 bytes, 


Routine Base: 


CODE + 2568 


5 
1b-se “19 :18:0 AX-11 Bliss-32 v4.0-74 Pp 108 
1 ~300n 382 ae fe CLIUTL.SRC a Oe 29 31) 


j 
NSS | 


~ 


SS . ’ 


F 9 | 
a al Lepecthannee samme Ne-Sep-196e 12:08:48 EetiutessReSOuEMANsHo.68251 rae 22) 


3 r¢ 1 ROUTINE CEOL: NOVALUE= 
3 4 } ee 
> 324 i 
; +! FUNCTIONAL DESCRIPTION: 
3 +! $s routine writes the Listing buffer to the Listing file if the 
; g 1 : : itorine buffer contains any text. 
; 5 1 ! INPUT PARAMETERS: 
; 5 : : : NONE 
3 ; 
3 3 1 ! IMPLICIT INPUTS: 
: 3260 5 1 ! OUTPUT PARAMETERS: 
3; 3261 40 1! NONE 
; 326 41 1! 
3; 326 42 1 ! IMPLICIT OUTPUTS: 
3 3264 435 1! NONE 
3 3265 44 1! | 
3 08 45 1 ! ROUTINE VALUE: 
3; 326 re 1! NONE 
3 9 48 1 ! SIDE EFFECTS: 
3 0 49 1! The Listing is produced. 
3: 3271 50 1! 
3; 327 3 1 !<- 
3; 327 ¢ 1 
3; 3274 5 § BEGIN | 
3: 3275 54 IF .LIST_DESCCO] NEQ .FLAGSCB_RIGHT_MARGIN] THEN EOL(); 
3; 3276 255 1 END; 
0000 00000 CEOL: .WORD Save nothin 3 352? 
0000° CF 0000" CF 08 00 Fe 00002 CMPZV «#0, #8, FLAGS+5S, LIST_DESC : 3254 
CO AF $0 re $008 PALES i EOL : 
04 00011 1$: RET : 3255 


3; Routine Size: 18 bytes, Routine Base: CODE + 259A 


3 
vou-000 see ere opm: e819 $o:08:es Lek Tute sae Sousmansno.o82;1 Page 

ROUTINE PUT_OUTPUT (DESC) : NOVALUE= 
‘oe 


FUNCTIONAL DESCRIPTION: 
This routine writes a record to the Listing file. 


INPUT PARAMETERS 
DESC = The. address of the string descriptor for the record to write. 


IMPLICIT INPUTS: | 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
The Listing is produced. 


SESRASLSSSLEARLEN LS SANS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
1 
1 
1 
1 
1 
= BEGIN 


| 

| 

DESC: REF BBLOCK; | 

LOCAL | 

10 STATUS; | 

+ | 
18 naprraasy ASZ} = .DESCEDSCSY LENGTH}: 

6 RABCRABSL_RBFJ = .DESCCDSCSA_POINTER); | 

af IF NOT (STATUS = SPUT(RAB=RAB)) | 

18 SIGNAL _STOP(QUEMANS_WRITEERR,1,QUTPUT_DESC,.STATUS, .RABLRABSL_STVJ); | 

326 98 1 END; | 


.EXTRN SYSSPUT 
0004 00000 PUT_oUTPUT: 
WORD 


Save _R2 : 3256 
: me CF 9E 00 2 MOVAB RAB+34, R2 : 

AC D MOVL DESC, RO 3 3291 | 
§ 60 8 MOVW (RO), RAB+34 : 

06 AQ MOVL 4(ROS, RAB+40 ; 3 92 | 

A2 9F 0001 PUSHAB RAS ; 32964 | 

000000006 9 FB 1 CALLS Syssput ; | 
0 € 1D BLBS SraTOS: : 


aygmaysHo SHOW QUEUE command IEoSE0c19R OO: 48:95 YARGIY, OLingcsz VAs Oa7Eg, 
EA RAB+1 


etarus 
22 PUSHAB TPUT_DESC 


OOFB10D4 #16453844 
000000006 00 05 t #5, LIBSSTOP 


; Routine Size: 56 bytes, Routine Base: CODE + 25AC 


Page Jy 


3296 


3298 


ib-se - 
Ve-Sep-19e¢ fesdeses — EetaumL sk 


ROUTINE EXIT_HANDLER: NOVALUE= 


ee 
i 


NOME wT 


3 1 

; 1 

- : 

; 1} FUNCTIONAL DESCRIPTION: 

3 1 / This routine is an exit handler that is established as tong as the 
3 1 process owns open wildcarding. Its function is to cancel $GETQUI 
; ; wildcarding if an image exit should occur. 
: $331 1} INPUT PARAMETERS: 

: § : : Standard exit handler parameters (not used). 
; i? 1 ' IMPLICIT INPUTS: 

: 33% | ae _ 

; 14 1 | OUTPUT PARAMETERS: 

: 1? ; NONE 

3 3340 i$ 1} IMPLICIT OUTPUTS: 

3 1 1 1! NONE 

; § 18 1: 

; 0 1 i ROUTINE VALUE: 

3 4 11! NONE 

3 5 ¢ 1/ 

3 $ 1! SIDE EFFECTS: 

: . 23 NONE 

} 8 5 1! 

3 9 $ 1 i- 

; 0 1 

3 1 ; BEGIN 

; ; $GETQUI (FUNC=QUI$_CANCEL_OPERATION) ; 

; 335 0 END; 


-EXTRN SYSSGETQUI 
0000 00000 EXIT_HANDLER: 
- WORD 


Save nothing 
7E 7C 00002 CLRQ -(SP) 
7E 7C 00004 CLRQ -(SP) 
7E 01 7D 00006 MOVa #1, -(SP) 
3 D4 00009 CLRL -(SP) 
00000000G 00 07 FB 000 CALLS #7, SYSS$GETQUI 
04 0001 RET 


3; Routine Size: 19 bytes, Routine Base: CODE + 25€4 


Page 25 


(24 


ayEMaNsNO SHOW QUEUE connand este OB: 48:05 YANG IT OL fnge32 YA Oe74R, 


: $382 $332 0 ElUoon 


-EXTRN LIBSSIGNAL, LIBSSTOP 


PSECT SUMMARY 

Name Bytes Attributes 
DATA $63 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
CODE g NOVEC, ‘NOWRT, RD, EXE, NOSHA’ LCL, REL, CON,NOPIC,ALIGN(2) 
- ABS. 0 NOVEC, ‘NOWRT, NORD ;NOEXE.NOSHR LCL, ABS, CON,NOPIC,ALIGN(O) 

Library Statistics 
- (|. @eeccece Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 289 2 581 00:01.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:QUEMANSHO/0BJ=0BJ$:QUEMANSHO MSRC$:QUEMANSHO/UPDATE=(ENHS : QUEMANSHO) 


Size: 7223 code + 3159 data bytes 
Run Time: 1.7 
Elapsed Time: 5.9 


Lines/CPU Min: 1411 

,onenes/<Pu-tias 21065 
poner Used: 632 pages 

Compilation Complete 
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